My inetrunner tool by temo

    • My inetrunner tool by temo

      [COLOR="MediumTurquoise"]Hi hab mal ein kleines programm erstellt.
      Was es kann es ist eine kleine start zentrale xD. Features folgen.[/COLOR]

      [FELD="Feature"][COLOR="Red"]1.Internetseiten öffnen^^[/COLOR]
      [COLOR="Blue"]2.Programme öffnen per Abkkürzungen[/COLOR]
      [COLOR="YellowGreen"]3.Programme öffnen mit der Pfadangabe[/COLOR]
      [COLOR="Orange"]4.Übersichtliche icons von einpaar Programmen[/COLOR]
      [COLOR="DeepSkyBlue"]5.Button Liste wo man mit einem klick auf die Webseite gelangt[/COLOR]
      [COLOR="DarkRed"]6.notizbox^^[/COLOR]
      [COLOR="Purple"]7.Spamme Nachicht auf dem Eigenen Bildschirm :P[/COLOR]
      [COLOR="DarkSlateBlue"]8.Beenden buttons mit Abschieds Nachicht[/COLOR][/FELD]

      [FELD=Hier ein Paar Bilder]
      [COLOR="Red"]image1[/COLOR]
      [COLOR="Red"]image2[/COLOR]
      [COLOR="Red"]image3[/COLOR]
      [COLOR="Red"]image4[/COLOR][/FELD]

      [FELD="1."] Ihr geb einfach in das inputfeld(siehe image 3) www. oder www. ein. Nur z.B. godlikerz.de oder GodLikerZ - Beats Everything klappen nicht.
      Die Seite wird im Standertbrowser geöffnet.[/COLOR][/FELD]

      [FELD="2."]
      Die Abküzungen müssen auch einfach in das inputfeld eingegeben werden.
      Eine Liste von den abkürzungen erscheint in der Notizbox (siehe image 4) wenn ihr auf den Button Features klickt.

      oder hier

      Quellcode

      1. virtual box |wmp |mail |rar |foto |wl |quick |fire |GL |godlikerz |google |ingamers |herunterfahren |neustart |schlaf |log out |stromOff |chrome |IE |auto |skype |team |WDM |virtual |gimp |icq


      ohne die "|" natürlich.

      Bei den Abkürzungen spielt Groß-/Kleinschreibung keine Rolle.

      Hier bei kann es Probleme geben siehe "Probleme" unten.[/COLOR]
      [/FELD]

      [FELD="3."]Ihr könnt auch einfach den Pfad eurer Programme dortrein schreiben (in das inputfeld siehe image 3) [/COLOR][/FELD]

      [FELD="4."]Wenn ihr auf die icons (image 2) drückt wird das Programm geöffnet.
      Hier bei kann es Probleme geben siehe "Probleme" unten.[/COLOR][/FELD]

      [FELD="5."]Klick einfach auf die Buttons^^ denkmal ist einleuchtend[/COLOR][/FELD]

      [FELD="6."]Was ein Notizblock ist ist jawohl klar^^. Wenn du auf den button Features drückst erscheinen die Abkürzungen in dem Notizblock und überschreiben das was drin steht.[/COLOR][/FELD]

      [FELD="7."]Öffnet eine msgbox mit dem inhalt des inputfeldes(seihe image 3)
      Die Messagebox lässt sich nicht schließen nur mit dem Taskmanager (Strg+Alt+Entf).[/COLOR][/FELD]

      [FELD="8."] Ein klick darauf Beendet das Programm mit einer Abschieds Nachicht.[/FELD]
      [/COLOR]

      [FELD="Probleme"]Ws können mit den Abkürzungen/icons/... probleme entstehen wenn die icons nicht im selben ordner sind wi im quellcode. Deswegen realse ich auch den quellcode den ihr dann an euren computer anpassen könnt.[/FELD]

      "Code"

      C-Quellcode

      1. #include <GUIConstantsEx.au3>
      2. #include <StaticConstants.au3>
      3. #include <TabConstants.au3>
      4. #include <WindowsConstants.au3>
      5. #include <Constants.au3>
      7. #Region ### START Koda GUI section ### Form=c:\program files\auto it\examples\inetrunner.kxf
      8. $Form1_1 = GUICreate("internet runner", 153, 556, -1, -1, -1, BitOR($WS_EX_APPWINDOW,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
      9. GUISetIcon("C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe")
      10. GUISetBkColor(0xA6CAF0)
      11. $I_input = GUICtrlCreateInput("", 8, 8, 137, 24)
      12. GUICtrlSetBkColor(-1, 0x3399FF)
      13. $Run = GUICtrlCreateButton("Run", 8, 32, 57, 25, 0)
      14. $Features = GUICtrlCreateButton("Features", 64, 32, 81, 25, 0)
      15. $Beenden = GUICtrlCreateButton("Beenden", 72, 56, 73, 25, 0)
      16. $auto_it = GUICtrlCreateIcon("C:\Program Files\Auto it\examples\Inetrunner.exe", 0, 8, 120, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
      17. $gimp = GUICtrlCreateIcon("C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe", 0, 56, 120, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
      18. $fire = GUICtrlCreateIcon("C:\Program Files\Mozilla Firefox\firefox.exe", 0, 104, 120, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
      19. $virtual_box = GUICtrlCreateIcon("C:\Program Files\Sun\xVM VirtualBox\VirtualBox.exe", 0, 8, 168, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
      20. $adob = GUICtrlCreateIcon("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe", 0, 56, 168, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
      21. $skype = GUICtrlCreateIcon("C:\Program Files\Skype\Phone\Skype.exe", 0, 104, 168, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
      22. $icq = GUICtrlCreateIcon("C:\Program Files\ICQ6.5\ICQ.exe", 0, 8, 216, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
      23. $mail = GUICtrlCreateIcon("C:\Program Files\Windows Live\Mail\wlmail.exe", 0, 56, 216, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
      24. $teamviewer = GUICtrlCreateIcon("D:\Program Files\TeamViewer\Version4\TeamViewer.exe", 0, 104, 216, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
      25. $Tab1 = GUICtrlCreateTab(8, 264, 137, 129)
      26. GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
      27. $TabSheet1 = GUICtrlCreateTabItem("Buttons")
      28. $Adobe = GUICtrlCreateButton("Adobe", 16, 296, 113, 33, 0)
      29. $ingamers = GUICtrlCreateButton("ingamers", 16, 336, 113, 41, 0)
      30. $TabSheet2 = GUICtrlCreateTabItem("Buttons2")
      31. $Godlikerz = GUICtrlCreateButton("Godlikerz", 20, 293, 113, 28, 0)
      32. $Google = GUICtrlCreateButton("Google", 20, 325, 113, 25, 0)
      33. $Yahoo = GUICtrlCreateButton("Yahoo", 20, 357, 113, 25, 0)
      34. $TabSheet3 = GUICtrlCreateTabItem("Buttons3")
      35. $vBulletin = GUICtrlCreateButton("vBulletin", 16, 296, 121, 25, 0)
      36. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
      37. $Chip = GUICtrlCreateButton("Chip", 16, 328, 121, 25, 0)
      38. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
      39. $PC_Welt = GUICtrlCreateButton("PC-Welt", 16, 360, 121, 25, 0)
      40. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
      41. $TabSheet4 = GUICtrlCreateTabItem("Buttons4")
      42. $ick = GUICtrlCreateButton("icq", 16, 328, 123, 25, 0)
      43. $GFX_sector = GUICtrlCreateButton("GFX-Sector", 16, 360, 121, 25, 0)
      44. $SchuelerVZ = GUICtrlCreateButton("SchuelerVZ", 16, 296, 121, 25, 0)
      45. GUICtrlCreateTabItem("")
      46. $NotitzBlock = GUICtrlCreateEdit("", 8, 400, 137, 145)
      47. GUICtrlSetData(-1, StringFormat("NotitzBlock\r\nhier texte eintragen"))
      48. GUICtrlSetBkColor(-1, 0x3399FF)
      49. $SPAMM = GUICtrlCreateButton("SPAMM", 8, 56, 65, 25, 0)
      50. $Progress1 = GUICtrlCreateProgress(8, 88, 137, 25, $WS_BORDER)
      51. GUICtrlSetCursor (-1, 15)
      52. GUISetState(@SW_SHOW)
      53. Dim $Form1_1_AccelTable[4][2] = [["{ENTER}", $Run],["^f", $Features],["^b", $Beenden],["^s", $SPAMM]]
      54. GUISetAccelerators($Form1_1_AccelTable)
      55. #EndRegion ### END Koda GUI section ###
      57. #cs
      58. Dies ist der Styl des programms dort sind z.B. die Befehle um Buttuns zu erstellen.
      59. Also ähnlich wie CSS (Cascading Style Sheets).^^
      60. #ce
      61. ;-------------------------------------------------------
      62. While 1
      63. $nMsg = GUIGetMsg()
      64. Switch $nMsg
      65. Case $GUI_EVENT_CLOSE
      66. Exit
      67. Case $Run
      68. $pfad = GUICtrlRead ($I_input)
      69. GuiCtrlSetData( $NotitzBlock ,$pfad)
      70. If GUICtrlRead ($I_input)= "virtual box" Then ;Überprüft ob in dem Inputfeld "virtual box" steht.
      71. Run ("C:\Program Files\Sun\xVM VirtualBox\VirtualBox.exe")
      72. ElseIf GUICtrlRead ($I_input)= "wmp" Then ;Sollte "virtual box" nicht dadrin stehen werden die Elseif Befehle ausgefürt.
      73. Run ("C:\Program Files\Windows Media Player\wmplayer.exe")
      74. ElseIf GUICtrlRead ($I_input)= "mail" Then
      75. Run ("C:\Program Files\Windows Live\Mail\wlmail.exe")
      76. ElseIf GUICtrlRead ($I_input)= "rar" Then
      77. Run ("C:\Program Files\WinRAR\WinRar.exe")
      78. ElseIf GUICtrlRead ($I_input)= "foto" Then
      79. Run ("C:\Program Files\Windows Live\Photo Gallery\WLXPhotoGallery.exe")
      80. ElseIf GUICtrlRead ($I_input)= "wl" Then
      81. Run ("C:\Program Files\Windows Live\Messenger\msnmsgr.exe")
      82. ElseIf GUICtrlRead ($I_input)= "quick" Then
      83. Run ("C:\Program Files\QuickTime\QuickTimePlayer.exe")
      84. ElseIf GUICtrlRead ($I_input)= "fire" Then
      85. ElseIf guictrlread($I_input) = "GL" Then
      86. ShellExecute("http://www.godlikerz.de")
      87. ElseIf guictrlread($I_input) = "godlikerz" Then
      88. ShellExecute("http://www.godlikerz.de")
      89. ElseIf guictrlread($I_input) = "google" Then
      90. ShellExecute("http://www.google.de")
      91. ElseIf guictrlread($I_input) = "ingamers" Then
      92. ShellExecute("http://www.ingamers.de")
      93. ElseIf guictrlread($I_input) = "herunterfahren" Then
      94. Shutdown (4)
      95. ElseIf guictrlread($I_input) = "neustart" Then
      96. Shutdown (2)
      97. ElseIf guictrlread($I_input) = "schlaf" Then
      98. Shutdown (64)
      99. ElseIf guictrlread($I_input) = "log out" Then
      100. Shutdown (0)
      101. ElseIf guictrlread($I_input) = "stromOff" Then
      102. Shutdown (8)
      103. ElseIf guictrlread($I_input) = "chrome" Then
      104. Run ("C:\Users\Jan\AppData\Local\Google\Chrome\Application\chrome.exe")
      105. ElseIf guictrlread($I_input) = "IE" Then
      106. Run ("C:\Program Files\Internet Explorer\iexplore.exe")
      107. ElseIf guictrlread($I_input) = "auto" Then
      108. Run ("C:\Program Files\Auto it\Auto it\AutoIt3\Kodak\FD.exe")
      109. Run ("C:\Program Files\Auto it\Auto it\AutoIt3\SciTE\SciTE.exe")
      110. Run ("C:\Program Files\Auto it\Auto it\AutoIt3.chm")
      111. ElseIf guictrlread($I_input) = "skype" Then
      112. Run ("C:\Program Files\Skype\Phone\Skype.exe")
      113. ElseIf guictrlread($I_input) = "team" Then
      114. Run ("C:\Program Files\TeamViewer\Version4\TeamViewer.exe")
      115. ElseIf guictrlread($I_input) = "WDM" Then
      116. Run ("C:\Program Files\DVD Maker\DVDMaker.exe")
      117. ElseIf guictrlread($I_input) = "virtual" Then
      118. Run ("C:\Program Files\Sun\xVM VirtualBox\VirtualBox.exe")
      119. ElseIf guictrlread($I_input) = "gimp" Then
      120. Run ("C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe")
      121. ElseIf guictrlread($I_input) = "icq" Then
      122. Run ("C:\Program Files\ICQ6.5\ICQ.exe")
      123. Else ;Sollte weder das was bei if oder elseif steht stimmen wird der else befehl ausgeführt
      124. $pfad=guictrlread($I_input); Die Variable $pfad ließ den Inhalt des Inputfeldes.
      125. ShellExecute($pfad); Für das was in dem Inputfeld staht aus mit dem Standart Internetbrowser (nur wenn das eingegebene eine Internet addresse ist also www./.../http://www./... )
      126. EndIf
      128. ;------------------------------------------------------------
      129. Case $auto_it
      130. Run ("C:\Program Files\Auto it\Auto it\AutoIt3\Kodak\FD.exe"); Run bedeutet ein Programm zu starten dahinter steht der Pfad des Programms in () und "" also ("")
      131. Run ("C:\Program Files\Auto it\Auto it\AutoIt3\SciTE\SciTE.exe")
      132. Run ("C:\Program Files\Auto it\Auto it\AutoIt3.chm")
      133. Case $gimp
      134. Run ("C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe")
      135. Case $fire
      136. Run ("C:\Program Files\Mozilla Firefox\firefox.exe")
      137. Case $virtual_box
      138. Run ("C:\Program Files\Sun\xVM VirtualBox\VirtualBox.exe")
      139. Case $adob
      140. Run ("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe")
      141. Case $skype
      142. Run ("C:\Program Files\Skype\Phone\Skype.exe")
      143. Case $icq
      144. Run ("C:\Program Files\ICQ6.5\ICQ.exe")
      145. Case $mail
      146. Run ("C:\Program Files\Windows Live\Mail\wlmail.exe")
      147. Case $teamviewer
      148. Run ("C:\Program Files\TeamViewer\Version4\TeamViewer.exe")
      149. #cs Difiniert was passiert wenn man auf die icon symbole klickt
      150. Indiesem Fall öffnet es die Programme mit dem Befehl RUN.
      151. #ce
      152. ;--------------------------------------------------------------
      153. Case $SchuelerVZ
      154. ShellExecute("http://www.schuelervz.net")
      155. Case $ick
      156. ShellExecute ("http://www.icq.com")
      157. Case $GFX_sector
      158. ShellExecute ("http://www.gfx-sector.de")
      159. Case $Adobe
      160. ShellExecute ("http://www.adobe.com/de")
      161. Case $ingamers
      162. ShellExecute ("http://www.ingamers.de")
      163. Case $Godlikerz
      164. ShellExecute ("http://www.godlikerz.de")
      165. Case $Google
      166. ShellExecute ("http://www.google.de")
      167. Case $Yahoo
      168. ShellExecute ("http://www.yahoo.de")
      169. Case $vBulletin
      170. ShellExecute ("http://www.vbulletin-germany.com")
      171. Case $Chip
      172. ShellExecute ("http://www.chip.de")
      173. Case $PC_Welt
      174. ShellExecute ("http://www.pcwelt.de/")
      175. #cs Definier die buttons in der Auswahlbox
      176. In diesem Fall wird beim draufklicken die URL im standart Browser geöffnet.
      177. #ce
      178. ;----------------------------------------------------
      179. Case $Features
      180. GuiCtrlSetData( $NotitzBlock , "virtual box |wmp |mail |rar |foto |wl |quick |fire |GL |godlikerz |google |ingamers |herunterfahren |neustart |schlaf |log out |stromOff |chrome |IE |auto |skype |team |WDM |virtual |gimp |icq ")
      181. ;Die Codes werden in der Notizbox angezeigt wenn man auf funktionen klickt.
      182. ;----------------------------------------------------
      183. Case $Beenden
      185. MsgBox (0, "Programm wird geschlossen", "Hoffe du hattest Spaß mit meinem TOOL!")
      186. WinKill ("internet runner")
      187. ;Button Beenden wir definiert
      188. ;---------------------------------------------------
      189. Case $SPAMM
      190. $pfad=GUICtrlRead ($I_input)
      191. while 1
      192. If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
      193. $iMsgBoxAnswer = MsgBox($MB_OKCANCEL, $pfad, $pfad, 1)
      194. Select
      195. Case $iMsgBoxAnswer = $IDOK
      197. Case $iMsgBoxAnswer = $IDCANCEL
      198. WinKill ("internet runner")
      199. Case $iMsgBoxAnswer = -1 ;Timeout
      201. EndSelect
      202. WEnd
      204. EndSwitch
      205. WEnd
      Alles anzeigen


      Downloadlink: [COLOR="Red"]Download[/COLOR]

      Quellcode

      1. [COLOR="DarkRed"]Password: GodLikerz[/COLOR]


      [COLOR="Red"]Virustest[/COLOR]

      [COLOR="MediumTurquoise"]Missbraucht den Code bitte nicht. Ich will weder diesen Guide noch den code das tool oder so in einem anderen Forum sehen!!! Copirights by temo

      Bei Fragen fragt.[/COLOR]

      [COLOR="MediumTurquoise"]Pls geb mir doch wenns euch gefallen hat ein [/COLOR][SIZE="4"][FONT="Arial Black"][COLOR="Red"]thx/Karma[/COLOR][/FONT][/SIZE].

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • Daron;15813 schrieb:

      Schaut ganz nett aus , ích brauchs aber nicht .

      Was mich intressiert , wie lang hast du ca. dafür gebraucht und wie lange "kannst" du schon AutoIt ?

      Daron


      Ich habe ne Zeit dran gessesen weiß aber net mehr wie lange. Bin ja auch noch net so lange dabei und es hat eigentlich deshal für mich lange gedauert weil ich das designing oberläche und so immer verändert habe XD.

      Ich mache vlt seit 5-7 Tage also auch noch nicht lange.