JavaScript_Freek

Haha! Yes it works! Thanks codemyster for the Links page and ga for the close thingy!

Gosh darnit now the thing will not close if i click the X or File>>Exit Well with the X it will but it will give me an error! Well it will after many tried of clicking it! :cry: The error says something is wrong with Line 74.

Thanks sooo much! Any way of getting it into the "About Box" ?

;*********************** ; Dan's Main Menu ; Coded by: Dan ; August 2, 2006 ;Find Dan at: ;InvisionFreeSkins.com ;and JavascriptFreek.com ;*********************** #include <GuiConstants.au3> #include <Misc.au3> ; GUI GuiCreate("Dan's Main Menu", 400, 400) GuiSetIcon(@SystemDir & "\notepad.exe", 0) $TagsPageC = GuiCtrlCreateLabel('Visit Homepage', 5, 180, 100, 15, $SS_CENTER) GuiCtrlSetFont($TagsPageC,9,400,4) GuiCtrlSetColor($TagsPageC,0x0000ff) GuiCtrlSetCursor($TagsPageC,0) ; TEXT GUICtrlCreateLabel ( "If you have not noticed this already, the thing above this text is a tab. Pretty neat " &@crlf &"eh? Well not really, but still :D! Lalala this is some text. Blah blah I like muffins, and chocolate. Tribe No 1 Fan is a n00b. I like TEXT!" &@crlf &"" &@crlf &"-Dan", 10, 200, 400, 100) ;GUICtrlSetStyle (-1, $SS_RIGHT ) ; MENU $filemenu = GuiCtrlCreateMenu ("File") $fileitem = GuiCtrlCreateMenuitem ("Open...",$filemenu) $recentfilesmenu = GuiCtrlCreateMenu ("Recent Files",$filemenu) $separator1 = GuiCtrlCreateMenuitem ("",$filemenu) $exititem = GuiCtrlCreateMenuitem ("Exit",$filemenu) $helpmenu = GuiCtrlCreateMenu ("About") $aboutitem = GuiCtrlCreateMenuitem ("About",$helpmenu) ; PROGRESS BAR ProgressOn("Progress Meter", "Increments every second", "0 percent") For $i = 1 to 100 step 10 ProgressSet( $i, $i & " percent") Next ProgressSet(100 , "Done", "Complete") sleep(500) ProgressOff() ; TAB GuiCtrlCreateTab(1, 0, 400, 190) GuiCtrlCreateTabItem("Intro") GuiCtrlCreateLabel("Welcome to Dan's Menu Program." &@crlf &" " &@crlf &"Of course if you trust me you would be seeing this right now. Because this an " &@crlf &".exe file. Not everyone trust's them kind of files as they contain harmful virus. So "& @crlf &"hats off you too. So, this is like my first favorite program I wrote. Sweet eh? Well "& @crlf &"not really, but I still like it!", 20, 40, 400, 100) GuiCtrlCreateTabItem("Date") GuiCtrlCreateLabel("Todays date: " &@MON &" " &@WDAY &", " &@YEAR &" " &@crlf &"" &@crlf &"So your name on the computer is: " &@UserName &"" &@crlf &"" &@crlf &"Screen resolution: " &@DesktopWidth &"x" &@DesktopHeight &"" &@crlf &"" &@crlf &"Operating System Version: " &@OSVersion &" ", 20, 40) GuiCtrlCreateTabItem("Contact") GuiCtrlCreateLabel("Find me at ZetaStyles.com! Username: Dan." &@crlf &"" &@crlf &"Got an IM? Want to quickly chat with me?" &@crlf &"" &@crlf &"MSN: [email protected]" &@crlf &"" &@crlf &"AIM: Writer Zombie " &@crlf &"" &@crlf &"Yahoo!: [email protected]" &@crlf &"" &@crlf &"Email(s): [email protected]", 20, 40) ; GUI MESSAGE LOOP GuiSetState() While 1 $msg = GUIGetMsg() Select Case $msg = $fileitem $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)") If @error <> 1 Then GuiCtrlCreateMenuItem ($file,$recentfilesmenu) Case $msg = $exititem ExitLoop While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE $oRP.SaveFile( @ScriptDir & "\RichText.rtf", 0 ) ExitLoop Case $msg = $TagsPageC Run(@ComSpec & ' /c start http://www.javascriptfreek.com}','', @SW_HIDE) Case $msg = $aboutitem Msgbox(0,"About Dan's Menu","Dan's Main Menu" &@crlf &" " &@crlf &"http://javascriptfreek.com" &@crlf &"" &@crlf &"http://zetastyles.com" &@crlf &"" &@crlf &"©2006 Dan") Case $msg = $GUI_EVENT_CLOSE Exit EndSelect WEnd Allright when i run it it says. Error: Select statement is missing. Blah blah. Can anyone help me fix this code up? Btw I'm trying to add a click-able link.

How I tried the $GUI_blah close thing but it didnt work. Tell me the script.

; Dan's Menu ; August 2, 2006 #include <GuiConstants.au3> ; GUI GuiCreate("Dan's Main Menu", 400, 400) GuiSetIcon(@SystemDir & "\notepad.exe", 0) ; MENU $filemenu = GuiCtrlCreateMenu ("File") $fileitem = GuiCtrlCreateMenuitem ("Open...",$filemenu) $recentfilesmenu = GuiCtrlCreateMenu ("Recent Files",$filemenu) $separator1 = GuiCtrlCreateMenuitem ("",$filemenu) $exititem = GuiCtrlCreateMenuitem ("Exit",$filemenu) $helpmenu = GuiCtrlCreateMenu ("About") $aboutitem = GuiCtrlCreateMenuitem ("About",$helpmenu) ; TAB GuiCtrlCreateTab(1, 0, 400, 150) GuiCtrlCreateTabItem("Intro") GuiCtrlCreateLabel("Welcome to Dan's Menu Program. " &@crlf &"Of course if you trust me you would be seeing this right now." &@crlf &"So hats off you too. So, this is like my first favorite program I wrote. Sweet eh? Well not really, but I still like it!", 20, 40) GuiCtrlCreateTabItem("Test") GuiCtrlCreateLabel("I'm like testing.", 20, 40) GuiCtrlCreateTabItem("About") ; GUI MESSAGE LOOP GuiSetState() While 1 $msg = GUIGetMsg() Select Case $msg = $fileitem $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)") If @error <> 1 Then GuiCtrlCreateMenuItem ($file,$recentfilesmenu) Case $msg = $exititem ExitLoop Case $msg = $aboutitem Msgbox(0,"About Dan's Menu","This menu was programmed by Dan. This is copyrighted so if you have the same exact code and you claim as yours. Well then your ripping. Got questions? Email me at [email protected]!") Case $msg = $GUI_EVENT_CLOSE MsgBox(0, "GUI Event", "You clicked CLOSE! Exiting...") EndSelect WEnd When I click the red X top right of it It will not close. Please help.

I can't find it. Yes I tried looking...

Bump ^^ not a real answer

msgbox(0,"","SlaveBot created in autoIt by Xantios ") ;X-Warez SlaveBot irc SlaveBot ! ;$back = stringmid($Recv,$instr+18) TCPStartup( ) $socket = tcpconnect("127.0.0.1",6667) TCPSend($socket, "NICK " & "SlaveSlaveBot" & @CRLF) sleep(500) TCPSend($socket, "USER " & "SlaveSlaveBot" & " 0 0 :" & "SlaveSlaveBot" & @CRLF) sleep(500) tcpsend($socket, "OPER "&"Invalid_Username"&" "&"soccer"&@crlf) tcpsend($socket, "JOIN "&"#aSlaveBotnoob"&@crlf) sleep(1000) tcpsend($socket, "MODE "&"#aSlaveBotnoob"&" +o SlaveBotNAME"&@crlf) sleep(1200) ;tcpsend($socket,"PRIVMSG #SlaveBot SlaveBot is de gekstuhhhh !"&@crlf) while 1 $recv = tcprecv($socket,1024*5) if $recv <> "" then $PingP = StringInStr($recv, "ping :") ; Check of there is a ping If $PingP = 1 Then ; Checks the output of command here alow $PongM = StringMid($recv, $PingP) ; Get the return value $pongT = StringInStr($pongM, @CRLF) ; Checks of this is the only one If $pongT = 0 Then $pongT = "" ; Checks the output of command here alow $pong = "pong :" & StringMid($pongM, 7, $pongT) ; Create the pong message TCPSend($socket, $pong & @CRLF) ; Send the pong ;tcpsend($socket, "PRIVMSG #SlaveBot ik heb een pong gestuurt !"&@crlf) ;Traytip("SlaveBot","Er is een PONG gestuurt :-) ",5) ; Shows a tooltip that the pong message is send ; word wel irritant hoor :-) endif endif ;if stringinstr($recv,"KICK #SlaveBot") Then ;Tcpsend($socket,"JOIN #SlaveBot"&@crlf) ;tcpsend($socket,"PRIVMSG #SlaveBot Gij zult de SlaveBot niet kicken !"&@crlf) ;tcpsend($socket, "MODE "&"#SlaveBot"&" +o SlaveBot"&@crlf) ;endif if stringinstr($recv,"!help") Then tcpsend($socket, "PRIVMSG #SlaveBot Typ !help voor hulp of probeer !posts om het aantal posts op X-warez te bekijken :-)"&@crlf) EndIf if StringInStr($recv,":!Posts") Then $oldcount = 0 $postcount = 0 inetget("http://www.X-Warez.nl/index.php","c:\Temp.php",1,0) $Size = FileGetSize("c:\Temp.php") $read = FileRead("C:\Temp.php",$size-5) if stringinstr($read,"Onze leden hebben een totaal van ") Then $Full = stringmid($read,stringinstr($read,"Onze leden hebben een totaal van")) $read = $Full $Start = stringinstr($read,"<b>") $End = stringinstr($read,"</b>") $oldcount = $postcount $PostCount = stringmid($read,$start+3,$end-$start-3) endif tcpsend($socket, "PRIVMSG #SlaveBot het aantal posts op X-Warez.nl " &$postcount &@crlf) endif if stringinstr($recv,"PRIVMSG #SlaveBot os !test") Then TCPSend($socket,"PRIVMSG #SlaveBot blaatneger") endif if stringinstr($recv,"KICK #SlaveBot SlaveBot") Then Tcpsend($socket,"JOIN #SlaveBot"&@crlf) $instr = stringinstr($recv,"!") $OpName = stringmid($recv,2,$instr-2) tcpsend($socket,"PRIVMSG #SlaveBot"&" "&$Opname&" jij hebt mij gekickt ! , die krijg je terug !"&@crlf) tcpsend($socket, "MODE "&"#SlaveBot"&" +o SlaveBot"&@crlf) tcpsend($socket,"KILL "&$Opname&" Je mag de SlaveBot niet kicken !"& @crlf) endif if stringinstr($recv,"JOIN :#SlaveBot") Then $instr = stringinstr($recv,"!") $OpName = stringmid($recv,2,$instr-2) ;$dildo = stringinstr($opname,":") ;$naampie = stringmid($opname,30,$dildo) ;75 ! $bef = stringmid($opname,78) tcpsend($socket,"PRIVMSG #SlaveBot welkom in #SlaveBot "&$bef &"hier word de X-Warez SlaveBot gemaakt door os , met dank aan Jaenster !"&@crlf) endif $logje = 0 if stringinstr($recv,"SlaveBot")then if $logje = 0 then filewrite("hoerenkut.txt","Log van: " &@mon&" " &@WDAY &" " &@HOUR &":" &@MIN &@CRLF) endif FileWrite("hoerenkut.txt",$recv) $logje = 1 EndIf if stringinstr($recv,"PRIVMSG SlaveBot :hoi") Then ; volledige commando is :[email protected] PRIVMSG SlaveBot :hoi $bijna = stringsplit($recv,"!") $helemaal = stringtrimleft($bijna[1],1) $naam = $helemaal ;msgbox(0,"test","naam is: " &$naam) ;Je kunt ook StringSplit(volledige commando, "!") gebruiken ;en dan de eerste variable samen met StringTrimLeft(commando,1); ;$totaal = StringLen($recv) ; msgbox(0,"","totaal is: " &$totaal); totaal als naam os is 50 ; $split1 = stringmid($recv,2,$totaal - 20) tcpsend($socket,"PRIVMSG "&$naam &" hallo "&@CRLF) tcpsend($socket,"MSG "&$naam &" blaat" &@CRLF) EndIf ;FileWrite("ontang log.txt",$recv &@crlf) sleep(200) WEnd That is the code for my bot. How do I upload it to my channel. (#abotnoob) Thanks in advanced.

Now it cuts off after right now. Like below "right now" is blank.

I want to know. That my script: ; Dan's Menu ; August 2, 2006 #include <GuiConstants.au3> ; GUI GuiCreate("Dan's Main Menu", 400, 400) GuiSetIcon(@SystemDir & "\notepad.exe", 0) ; MENU $filemenu = GuiCtrlCreateMenu ("File") $fileitem = GuiCtrlCreateMenuitem ("Open...",$filemenu) $recentfilesmenu = GuiCtrlCreateMenu ("Recent Files",$filemenu) $separator1 = GuiCtrlCreateMenuitem ("",$filemenu) $exititem = GuiCtrlCreateMenuitem ("Exit",$filemenu) $helpmenu = GuiCtrlCreateMenu ("About") $aboutitem = GuiCtrlCreateMenuitem ("About",$helpmenu) ; TAB GuiCtrlCreateTab(1, 0, 400, 150) GuiCtrlCreateTabItem("Dan") GuiCtrlCreateLabel("[color=red][b]Welcome to Dan's Menu Program. Of course if you trust me you would be seeing this right now. So hats off you too. So, this is like my first favorite program I wrote. Sweet eh? Well not really, but I still like it![/b][/color]", 20, 40) GuiCtrlCreateTabItem("Test") GuiCtrlCreateLabel("I'm like testing.", 20, 40) GuiCtrlCreateTabItem("About") ; GUI MESSAGE LOOP GuiSetState() While 1 $msg = GUIGetMsg() Select Case $msg = $fileitem $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)") If @error <> 1 Then GuiCtrlCreateMenuItem ($file,$recentfilesmenu) Case $msg = $exititem ExitLoop Case $msg = $aboutitem Msgbox(0,"About Dan's Menu","This menu was programmed by Dan. This is copyrighted so if you have the same exact code and you claim as yours. Well then your ripping. Got questions? Email me at [email protected]!") EndSelect WEnd Welcome to Dan's Menu Program. Of course if you trust me you would be seeing this right now. So hats off you too. So, this is like my first favorite program I wrote. Sweet eh? Well not really, but I still like it! - YES I MADE IT COLOR RED AND BOLD. Anyways after the word "seeing" it gets cutt off. I tried {ENTER} but it didn't work.

Thanks Big Daddy! Whoa. This is like laggy! Alright I don't get it. This is my code #include <GUIConstants.au3> #include <IE.au3> Dim $sURL = "http://sodaplay.com/constructor/beta/applet.htm?" _IEErrorHandlerRegister() $oIE = _IECreateEmbedded() GUICreate("Embedded Web control Test", 640, 580, _ (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _ $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $GUI_Input = GUICtrlCreateInput("", 10, 10, 540) $GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360) $GUI_Button_Go = GUICtrlCreateButton("Go", 560, 10, 50, 20, $BS_DEFPUSHBUTTON) $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30) $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30) $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30) $GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30) GUISetState() ;Show GUI _IENavigate($oIE, $sURL) ; Waiting for user to close the window While 1 $msg = GUIGetMsg() Switch $msg Case $GUI_EVENT_CLOSE ExitLoop Case $GUI_Button_Home _IENavigate($oIE, $sURL) Case $GUI_Button_Back _IEAction($oIE, "back") Case $GUI_Button_Forward _IEAction($oIE, "forward") Case $GUI_Button_Stop _IEAction($oIE, "stop") Case $GUI_Button_Go $sUsername = GUICtrlRead($GUI_Input) _IENavigate($oIE, $sURL & "&getmodel=" & $sUsername) EndSwitch WEnd GUIDelete() Exit Now when I go to like another window and back it freezez. Also can you pinpoint out the numbers that i have to edit to change the iFrame and the whole application window

I got it! Do you know a code that is like the URL one But let's say you want to have it like this. http://sodaplay.com/constructor/player.htm?&getmodel= [ ] The [ ]is a input box. So if you type in the in Javascript_Freek The url would load as. http://sodaplay.com/constructor/player.htm...JavascriptFreek PS- Thank you so much big daddy! =)

Nope. I saved it as IE.au3 at the top cause it said IE.au3 then nothing came up. Where can i get: #include <GUIConstants.au3> #include <IE.au3>

Alright so you see a input box that says uptop: Please type a url: Then for example you type... www.google.com the below is white screen but when you hit enter it goes to www.google.com and the url address bar is google.com

Does anyone know the code where you enter the url in a input box and a iFrame will appear below of the url given? Thanks.

Alright I got it. How do you add links to your menus? Like you you hover over File a list will drop down with clickable Links.

All that is a prompt box saying File ? and Ok and Cancel a bottom...

Does anyone know the code. Where it shows the navigation menu at top and blank space below for text? You know where it says File Edit View About That stuff

Is the $String = '546865207175657374696F6E206973207768617420776F756C6' & _ '420796F75206C696B6520746F20646F2077697468206E6F746570' & _ '61642C206E6F7420776861742063616E20796F7520646F2077697' & _ '468206E6F7465706164203A29' encrypted text?

Nothing happened.

Lol XD I had to reboot my compter. Had 170 Notepad Apllications open. Ok can you do ANYTHING to Notepad, any written code that makes it do something?

Are there other scripts related to using Notepad? Please tell me.

cant find that guide. where is it?

Can you link it to this topic please?