DeLeTeSHift
Знающий
- Сообщения
- 46
- Репутация
- 9
Небольшая однофункциональная утилита, просто открывающая все аватарки пользователя, ID которого вы указали, может кому и пригодится
Исходник:
Исходник:
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 277, 152, 192, 124)
$Label1 = GUICtrlCreateLabel("ID:", 16, 40, 33, 35)
GUICtrlSetFont(-1, 20, 800, 0, "One Stroke Script LET")
$v_Input_1 = GUICtrlCreateInput("", 56, 40, 121, 21)
$Button1 = GUICtrlCreateButton("Открыть историю аватарок", 56, 96, 147, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Go()
Exit
EndSwitch
WEnd
Func Go()
$v_Input = String(GUICtrlRead($v_Input_1))
ShellExecute("http://vk.com/album" &$v_Input& "_0")
EndFunc