[Ошибки] Бот для Тюряги

[madmasles]

`p r o x y [?]

Ну и проверяемую переменную исправить нужно.

Извините, не заметил эту строчку сразу. :-[

 

[`p r o x y]

madmasles
Не стоит извинений, все ок.
=ъ а первую? _)))

 

[DarkCrush]

Пишет ошибку

_Str() called by a previous line with 0 arg(s). Min = 1. First previous line calling this Func is 220.
Func _Str($aArray)

 

[madmasles]

DarkCrush

_Str($aFake)

Я же Вам написал:

_Str($aFake)

`p r o x y [?]

а первую?

:-[ :-[

 

[DarkCrush]

У меня получилось вот что:

;Окно на прокачку бицухи
Func _TwoWindow()
Global $Form7, $Group7, $Group8, $Group9, $fake, $Edit9, $idvk, $Button7, $Button8, $Button9, $aFake
$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($User, 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($aFake)
		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 ;==> _TwoWindow
local $fake
$aFake = _GetArrey($fake)
If Not @error Then
    _Str($aFake)
EndIf
;Бицуха
Func _Str($aArray)
	local $Edit9
            For $ii=1 To $aArray[0]
            $key=StringSplit($aArray[$ii],':')
			Local $PostData1 = ('sig=847df9498a90c30f8b3d6a5e3be33596&key='&$key[2]&'&friend_uid='&$User&'&user='&$key[1]&'&method=getFriendModels')
			Local $PostData = ('sig=a253727a35bf937d6ce98d47d9818fa9&user='&$key[1]&'&sex=0&vote=5&username=lololo&model_id=1''&key='&$key[2]&'&friend_uid='&$User&'&method=voteForFriend')
			$oHTTP.Open("POST", $GetModel)
			$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
			Execute('$oHTTP.Send($PostData1)')
			$oHTTP.WaitForResponse
			$Response = $oHTTP.ResponseText
			$Return = StringRegExpReplace($Response, '(?s).*?<vote_availability>(d+)</vote_availability>?.*','\1')
			if $Return = 1 Then
			$oHTTP.setTimeouts(5000,5000, 10000, 10000)
			$oHTTP.Open("POST", $GetStr)
			$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
			Execute('$oHTTP.Send($PostData)')
			$oHTTP.WaitForResponse
			$Edit9=GUICtrlSetData($Edit9, $Return)
      Sleep(1000)
      Else
      Sleep(1000)
      EndIf
	  Sleep(1000)
Next
EndFunc ;==> _Str

Func _GetArrey($fake)
    Local $aArray, $sText
    $sText = GUICtrlRead($fake)
    If Not $sText Then Return SetError(1)
    If StringInStr($sText, @LF) Then
        $aArray = StringSplit(StringStripCR($sText), @LF)
    ElseIf StringInStr($sText, @CR) Then
        $aArray = StringSplit($sText, @CR)
    Else
        Dim $aArray[2] = [1, $sText]
    EndIf
    If Not IsArray($aArray) Then Return SetError(1)
    Return SetError(0, 0, $aArray)
EndFunc   ;==>_GetArray

Что не так?

 

[madmasles]

DarkCrush

;этот кусок уберите вообще.
local $fake
$aFake = _GetArrey($fake)
If Not @error Then
    _Str($aFake)
EndIf
;вместо этого
Switch $smsg
        Case $Button8
        _Str($aFake)
		;...
;вставьте
Switch $smsg
        Case $Button8
		$aFake = _GetArrey($fake)
		If Not @error Then
			_Str($aFake)
		Else
			ToolTip('Ошибка получения данных', 0, 0, 'Error', 3, 1)
		EndIf
		;...

 

[DarkCrush]

Теперь пишет тут ошибку:

Func _GetArrey($fake)
    Local $aArray, $sText
    $sText = GUICtrlRead($fake)
    If Not $sText Then Return SetError(1)
    If StringInStr($sText, @LF) Then
        $aArray = StringSplit(StringStripCR($sText), @LF)
    ElseIf StringInStr($sText, @CR) Then
        $aArray = StringSplit($sText, @CR)
    Else
        Dim $aArray[2] = [1, $sText]
    EndIf
    If Not IsArray($aArray) Then Return SetError(1)
    Return SetError(0, 0, $aArray)
EndFunc   ;==>_GetArray

==> The requested action with this object has failed.:
$Response = $oHTTP.ResponseText
$Response = $oHTTP.ResponseText^ ERROR

Добавлено:

Сообщение автоматически объединено: 12 Янв 2011

Переделал запрос:

Local $PostData1 = 'user='&$key[1]&'&key='&$key[2]&'&friend%5Fuid='&$User&'&sig=b6e36cf4b383e362f6fe80a2aed79e8d&method=getFriendModels'
			Local $PostData = 'vote=5&key='&$key[2]&'&sex=0&user='&$key[1]&'&sig=a6e36cf3b383e322f63380a2aed1e3f4&model%5Fid=1&friend%5Fuid='&$User&'&method=voteForFriend'

Зависает :blink:


Добавлено:

Сообщение автоматически объединено: 12 Янв 2011

Потом выдает ту же ошибку, подскажите что поправить? проблема в запросе?

 

[Guezt]

DarkCrush
я же тебе написал функцию при чем проверил она работает 100% ошибка может быть из-за списка id и key вот я попробывал отобразить :

вот та функция единственное что добавил это include array что бы показать тебе что список отображается и делит все как надо ошибка у тебя в списке 99%

Спойлер

вот делим список и далее отдельно используем ключ и id

Спойлер

и вот далее по списку

Спойлер

привожу пример что не выдало ошибку и прошел запрос ищи ошибку в списке подключи отображение массива и поймешь что у тебя не так с ним.