AutoHotkey Community

Name = ###
Samp = Information
#NoTrayIcon
DetectHiddenWindows, On

CheckForDll:
IfNotExist, lbbrowse3.dll
 Goto, Lbbrowse3
LBBHandle := DllCall("LoadLibrary", "str", "lbbrowse3.dll")

InputBox, Loops, Accounts, How many accounts?
InputBox, Time, Delay, How long between posts in seconds? (minimum 10)
Time := (Time * 1000)

Loop, %Loops%
{
Loop, 10
{
Random, Number, 1, 26
FileReadLine, Letter, Letters.txt, %Number%
FileAppend, %Letter%, Mail.txt
}
FileAppend, `n, Mail.txt
}

CreatGui:
Gui,Font,cWhite
Gui,Add,Text,x6 y414,Options |
Gui,Add,Picture,gForms x+4 y410,Pic.jpg
Gui,Add,Text,x+4 y414,|
Gui,Add,Picture,gDoo x+4 y410,PicDos.jpg
Gui,Add,Text,x+4 y414,|
Gui,Add,Picture,gWoo x+4 y410,Exit.jpg
Gui, Color,black,black
Gui,Show,w662,%Name%
WinSet, Transparent, 180, %Name%
WinGet,GuiID,ID,%Name%
WinSet, Style, -0xC00000, %Name%
WinSet, Style, -0x40000, %Name%

XIE = 6 ;Browser X
YIE = 6 ;Browser Y
WIE = 650 ;Browser Width
HIE = 400 ;Browser Height
Url = http://website.com

DLLCall("lbbrowse3\CreateBrowser","uInt",GuiID,"Int",XIE,"Int",YIE,"Int",WIE,"Int",HIE,"Str",Url,"Int",1)
DllCall("lbbrowse3\EnableBrowser","Int",1)
DllCall("lbbrowse3\ShowBrowser","Int",0)
DLLCall("lbbrowse3\MoveBrowser","Int",XIE,"Int",YIE,"Int",WIE,"Int",HIE)
return



;Options
Forms:
N = 1
Loop, %Loops%
{
FileReadLine, Email, Mail.txt, %N%
Url3 = javascript:function D(a,b){c=b.split('|');d=false;for(q=0;q<c.length;q++){if(c[q]==a)d=true;}return d;}function E(){f0=document.forms[0];f0['username'].value='%Email%@gmail.com';f0['king'].value='%Email%';f0['pwd'].value='whatthezor';f0['pwd2'].value='whatthezor';for(i=0;i<f0['sex'].length;i++){if(D(f0['sex'][i].value,'0')){f0['sex'][i].checked=true;}}}E()
DllCall("lbbrowse3\Navigate", "str", Url3)
Sleep, 1000
Url4 = javascript:document.forms[0].submit()
DllCall("lbbrowse3\Navigate", "str", Url4)
Sleep, 2000
StatusBarWait, Done,,, %Name%
Sleep, 10000
H = 1
Loop, 5
{
ControlClick, x385 y370, %Name%
Sleep, 200
ControlSend, MacromediaFlashPlayerActiveX1, Put message here, %Name%
Sleep, 200
ControlClick, x433 y365, %Name%
Sleep, %Time%
H ++
}
N ++
DllCall("lbbrowse3\Navigate", "str", Url)
Sleep, 5000
}

Lbbrowse3:
msgbox,262180,Start URL,This ahk-script requires lbbrowse3.dll`n`nDownload`n- lbbrowse3.dll`n`nfrom`nhttp://www.alycesrestaurant.com/lbbrowse.htm`n`nLBBROWSE.DLL is copyright Alyce Watson, 2005.`n`nWould you like to download lbbrowse3.dll now?
ifmsgbox,NO
   {
   exitapp
   return
   }
else
   {
   ;run,http://www.alycesrestaurant.com/lbbrowse.htm
   run,http://www.alycesrestaurant.com/zips/browsdll3.zip
   exitapp
   return
   }
return

Woo:
GuiClose:
FileDelete, Mail.txt
ExitApp

Doo:
Menu,Tray,Icon
TrayTip,%Name%,Press WIN and E to show the window.
WinHide,%Name%
return

#e::
Menu,Tray,NoIcon
WinShow,%Name%
return