Нужно сделать что бы отображалось качнул "бицуху" или нет
Код:
Func _TwoWindow()
Global $Form7, $Group7, $Group8, $Group9, $fake,$Edit9, $idvk, $Button7, $Button8, $Button9, $texti
$Form7 = GUICreate("Качаем бицуху", 625, 445, 192, 124)
$Group7 = GUICtrlCreateGroup("Список", 8, 8, 297, 425)
$fake = GUICtrlCreateEdit("", 16, 24, 273, 369)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$Button7 = GUICtrlCreateButton("Извлечь из ...", 16, 400, 105, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("Пользователь", 328, 8, 281, 49)
$idvk = GUICtrlCreateInput("", 344, 24, 249, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group9 = GUICtrlCreateGroup("Информация", 328, 72, 281, 305)
$Edit9 = GUICtrlCreateEdit("", 336, 88, 257, 281)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button8 = GUICtrlCreateButton("Получить", 328, 400, 129, 33, $WS_GROUP)
$Button9 = GUICtrlCreateButton("Закрыть", 480, 400, 129, 33, $WS_GROUP)
$sexit = GUICtrlDelete($Form7)
GUISetState(@SW_SHOW)
While 1
$smsg = GUIGetMsg();
Switch $smsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form7)
ExitLoop
EndSwitch
Switch $smsg
Case $Button8
_Str()
GUISetState()
EndSwitch
Switch $smsg
Case $Button7
$text = FileOpenDialog("Указать файл", @WorkingDir & "", "Любой (*.txt)", 1 + 4 )
$Read = FileRead($text)
GUICtrlSetData($fake,$Read)
EndSwitch
Switch $smsg = $Button9
Case $GUI_EVENT_CLOSE
GUIDelete($Form7)
ExitLoop
EndSwitch
WEnd
EndFunc
Func _Str()
$i=$fake ; файл с фейками
;~ $fakeUser = StringSplit($i,@CRLF)
$fakeUser = StringSplit($i,@LF)
$ii=1
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$URL = 'http://109.234.156.250/prison/universal.php?voteForFriend'
$URL2 = 'http://109.234.156.250/prison/universal.php?getFriendModels'
For $ii=1 To $fakeUser[0]
$key=StringSplit($fakeUser[$ii],':')
$Post0 = 'user='&$key[1]&'&key='&$key[2]&'&friend%5Fuid='&$User&'&sig=b6e36cf4b383e362f6fe80a2aed79e8d&method=getFriendModels'
$Post1 = 'vote=5&key='&$key[2]&'&sex=0&user='&$key[1]&'&sig=a6e36cf3b383e322f63380a2aed1e3f4&model%5Fid=1&friend%5Fuid='&$User&'&method=voteForFriend'
$oHTTP.setTimeouts(5000,5000, 10000, 10000)
$oHTTP.Open("POST", $URL2)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Execute('$oHTTP.Send($Post0)')
$oHTTP.WaitForResponse
$Response13 = $oHTTP.ResponseText
$Return = StringRegExpReplace($Response13, '(?s).*?<vote_availability>(d+)</vote_availability>?.*','\1')
if $Return = 1 Then ;
$oHTTP.setTimeouts(5000,5000, 10000, 10000)
$oHTTP.Open("POST", $URL)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
Execute('$oHTTP.Send($Post1)')
$oHTTP.WaitForResponse
Sleep(1000)
Else
Sleep(1000)
EndIf
Sleep(1000)
Next
EndFunc