Что нового

[Элементы GUI] Отоброжение "логов"

Статус
Закрыто для дальнейших ответов.

DarkCrush

Начинающий
Сообщения
63
Репутация
1
Нужно сделать что бы отображалось качнул "бицуху" или нет


Код:
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
 
Статус
Закрыто для дальнейших ответов.
Верх