Loop problem

[koszmail2]

Helo, my script are fresh. I don't know about loops so i close them i While. But when my while working i can't make another same script. How loop this action to 1000 times ?

expandcollapse popup

;Script made by autoit.xaa.pl members and 'kipeer'
;/antyban.pl & Mojehyip.pl & mp-stic.eu\

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GUIListBox.au3>
#include <File.au3>
#include <EditConstants.au3>
Global $Paused,$X_Pytajnia_A,$X_Pytano_A,$X_ZadajPytanie_A,$X_ZadajPytanie_B


$Form1 = GUICreate("Form1", 924, 568, 50, 20)
Local $oIE = _IECreateEmbedded()

Local $oIE1 = _IECreateEmbedded()
GUICtrlCreateObj($oIE1, 10, 100, 195, 450)
Local $oIE2 = _IECreateEmbedded()
GUICtrlCreateObj($oIE2, 212, 100, 195, 450)
Local $oIE3 = _IECreateEmbedded()
GUICtrlCreateObj($oIE3, 407, 100, 195, 450)
Local $oIE4 = _IECreateEmbedded()
GUICtrlCreateObj($oIE4, 600, 100, 195, 450)
$Tab1 = GUICtrlCreateTab(3, 60, 800, 500)
GUICtrlSetFont(-1, 10, 800, 0, "Segoe Print")
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)

$TabSheet2 = GUICtrlCreateTabItem("Dodawanie pytań")


$Button1 = GUICtrlCreateButton("PytaNo.pl", 8, 16, 90, 20)
$Button3 = GUICtrlCreateButton("ZadajPytanie.pl ", 8, 36, 90, 20)

$Button2 = GUICtrlCreateButton("PytajNia.pl", 98, 16, 90, 20)
$Button4 = GUICtrlCreateButton("ZadajPytanie.pl 2", 98, 36, 90, 20)

$TabSheet2 = GUICtrlCreateTabItem("Odpowiedzi")
$Button5 = GUICtrlCreateButton("Ręcznie odpowiedz", 147, 40, 150, 20)

HotKeySet("{PAUSE}", "TogglePause")

GUISetState(@SW_SHOW)
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Script is "Paused"', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Pytano_A()
Case $Button2
Pytajnia_A()
Case $Button3
ZadajPytanie_A()
Case $Button4
ZadajPytanie_B()
EndSwitch
WEnd

#Region Pobierajki Pytan
$X_Pytajnia_A = 10929
$X_Pytano_A = 26051
$X_ZadajPytanie_A = 35000
$X_ZadajPytanie_B = 50000

#region $Button1
Func Pytano_A() ; $Button1
while 1
_ieNavigate($oIE1, "http://www.pytano.pl/pytanie/"&$X_Pytano_A&"/co-byscie-wtedy-o-mnie-powiedzieli.html")
_IELoadWait($oie1)
$X_Pytano_A+=1
Local $tytul = _IEPropertyGet($oie1, "title")
FileWriteline(@ScriptDir&"\Archiwa\segregacja\pytania_pytano_pl.txt", "idi : "&$X_Pytano_A&@CRLF&$tytul&@CRLF)
_FileWriteLog(@ScriptDir&"\Archiwa\Archiwum Pytano.pl\informacja_pytano_pl.log", "idi : "&$X_Pytano_A)
wend
EndFunc
#endregion $Button1
#region $Button2
Func Pytajnia_A() ;$Button2
While 1
_ieNavigate($oIE2, "http://www.pytajnia.pl/dzial/pytania/pokaz/"&$X_Pytajnia_A&"/antyban.pl")
_IELoadWait($oie2)
$X_Pytajnia_A+=1
Local $tytul = _IEPropertyGet($oIE2, "title")
FileWriteline(@ScriptDir&"\Archiwa\segregacja\pytania_pytajnia.pl.txt", "idi: "&$X_Pytajnia_A&@CRLF&$tytul&@CRLF)
_FileWriteLog(@ScriptDir&"\Archiwa\Archiwum pytajnia.pl\informacja_pytajnia.pl.log", "idi: "&$X_Pytajnia_A&@CRLF)
Wend
EndFunc
#endregion
#region $Button3
Func ZadajPytanie_A() ;$Button3
While 1
_ieNavigate($oIE3, "http://zadajpytanie.pl/pyt/"&$X_ZadajPytanie_A&"/antyban.pl")
_IELoadWait($oie3)
$X_ZadajPytanie_A+=1
Local $tytul = _IEPropertyGet($oie3, "title")
FileWriteline(@ScriptDir&"\Archiwa\segregacja\pytania_zadajpytanie_pl.txt", "idi: "&$X_ZadajPytanie_A&@CRLF&$tytul&@CRLF)
_FileWriteLog(@ScriptDir&"\Archiwa\Archiwum ZadajPytanie.pl\informacja_zadajpytanie_pl.log", "idi: "&$X_ZadajPytanie_A&@CRLF)
Wend
EndFunc
#endregion
#region $Button4
Func ZadajPytanie_B() ;$Button4
While 1

_ieNavigate($oIE4, "http://zadajpytanie.pl/pyt/"&$X_ZadajPytanie_B&"/antyban.pl")
_IELoadWait($oie4)
$X_ZadajPytanie_B+=1
Local $tytul = _IEPropertyGet($oie4, "title")
FileWriteline(@ScriptDir&"\Archiwa\segregacja\pytania_zadajpytanie_pl.txt", "idi: "&$X_ZadajPytanie_B&@CRLF&$tytul&@CRLF)
_FileWriteLog(@ScriptDir&"\Archiwa\Archiwum ZadajPytanie.pl\informacja_zadajpytanie_pl.log", "idi: "&$X_ZadajPytanie_B&@CRLF)
Wend
EndFunc
#endregion




Func Dodaj()

_IEIsFrameSet($oiE)
$nazwatematu = _IEGetObjbyName($oie, "temat_p")
$opistematu = _IEGetObjbyName($oie, "pytanie")
$kategoriatematu = _IEGetObjbyName($oie, "category")

$dane1 = ("pytanie.txt")
$random = "ael"

$imie = FileReadLine("$dane1", "$random" )
$nazwisko = FileReadLine("dane1", "$random2")

;_IEFormElementSetValue($opistematu, $opis_dane)
;_IEFormElementSetValue($nazwatematu, $nazwa_dane)
_IEFormElementOptionSelect($kategoriatematu, "30")

$dokladnie = ($imie&" "&$nazwisko)
$Input1 = GUICtrlCreateInput($dokladnie, 288, 16, 225, 21)

Local $oSubmit = _IEGetObjByName($oIE, "dodp_activ")
_IEAction($oSubmit, "click")
Sleep(4000)
_ieNavigate($oIE, "http://www.antwo.pl/")
endFunc
; Example 1 Endfunc

Edited August 15, 2012 by koszmail2

[koszmail2]

Please read the topic

[JLogan3o13]

Kozmail2, please do not bump your posts without waiting at least 24 hours. This gives us plenty of time to read through the topic and attempt to assist.

[Mechaflash]

Kozmail2, please do not bump your posts without waiting at least 24 hours. This gives us plenty of time to read through the topic and attempt to assist.

We need enough time to plug everything into Google Translate to figure out what you want to spam 1,000 times

[koszmail2]

We need enough time to plug everything into Google Translate to figure out what you want to spam 1,000 times

Now is: 01:09 PM ( made 01:50 PM )

BUmp Topic... Joke

The program consists of collecting information from the site. A hand in the description of this page to ask questions. About 10 links per minute is not a lot? But i need use script for many sites. Probably i will use trayiconmenu and just set them in hidden mode. One 'Deburger' guy (admin from polish forum autoit.xaa.pl) sayd: "Beter if your 4 scripts be on one 1Gui. Because if i run together in one guy the scripts will take smaller memory."

Edited August 15, 2012 by koszmail2

[Valik]

Good bye kipeer.