Sign in to follow this  
Followers 0
koszmail2

Loop problem

6 posts in this topic

#1 ·  Posted (edited)

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 :)?

;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 by koszmail2

Share this post


Link to post
Share on other sites



Please read the topic

Share this post


Link to post
Share on other sites

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. :)


√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites

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


Spoiler

“Hello, ladies, look at your man, now back to me, now back at your man, now back to me. Sadly, he isn’t me, but if he stopped using ladies scented body wash and switched to Old Spice, he could smell like he’s me. Look down, back up, where are you? You’re on a boat with the man your man could smell like. What’s in your hand, back at me. I have it, it’s an oyster with two tickets to that thing you love. Look again, the tickets are now diamonds. Anything is possible when your man smells like Old Spice and not a lady. I’m on a horse.”

 

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

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 by koszmail2

Share this post


Link to post
Share on other sites

Good bye kipeer.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0