My inetrunner tool by temo

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 http://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

Code

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

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>


#Region ### START Koda GUI section ### Form=c:\program files\auto it\examples\inetrunner.kxf
$Form1_1 = GUICreate("internet runner", 153, 556, -1, -1, -1, BitOR($WS_EX_APPWINDOW,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUISetIcon("C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe")
GUISetBkColor(0xA6CAF0)
$I_input = GUICtrlCreateInput("", 8, 8, 137, 24)
GUICtrlSetBkColor(-1, 0x3399FF)
$Run = GUICtrlCreateButton("Run", 8, 32, 57, 25, 0)
$Features = GUICtrlCreateButton("Features", 64, 32, 81, 25, 0)
$Beenden = GUICtrlCreateButton("Beenden", 72, 56, 73, 25, 0)
$auto_it = GUICtrlCreateIcon("C:\Program Files\Auto it\examples\Inetrunner.exe", 0, 8, 120, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
$gimp = GUICtrlCreateIcon("C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe", 0, 56, 120, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
$fire = GUICtrlCreateIcon("C:\Program Files\Mozilla Firefox\firefox.exe", 0, 104, 120, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
$virtual_box = GUICtrlCreateIcon("C:\Program Files\Sun\xVM VirtualBox\VirtualBox.exe", 0, 8, 168, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
$adob = GUICtrlCreateIcon("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe", 0, 56, 168, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
$skype = GUICtrlCreateIcon("C:\Program Files\Skype\Phone\Skype.exe", 0, 104, 168, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
$icq = GUICtrlCreateIcon("C:\Program Files\ICQ6.5\ICQ.exe", 0, 8, 216, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
$mail = GUICtrlCreateIcon("C:\Program Files\Windows Live\Mail\wlmail.exe", 0, 56, 216, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
$teamviewer = GUICtrlCreateIcon("D:\Program Files\TeamViewer\Version4\TeamViewer.exe", 0, 104, 216, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
$Tab1 = GUICtrlCreateTab(8, 264, 137, 129)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Buttons")
$Adobe = GUICtrlCreateButton("Adobe", 16, 296, 113, 33, 0)
$ingamers = GUICtrlCreateButton("ingamers", 16, 336, 113, 41, 0)
$TabSheet2 = GUICtrlCreateTabItem("Buttons2")
$Godlikerz = GUICtrlCreateButton("Godlikerz", 20, 293, 113, 28, 0)
$Google = GUICtrlCreateButton("Google", 20, 325, 113, 25, 0)
$Yahoo = GUICtrlCreateButton("Yahoo", 20, 357, 113, 25, 0)
$TabSheet3 = GUICtrlCreateTabItem("Buttons3")
$vBulletin = GUICtrlCreateButton("vBulletin", 16, 296, 121, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Chip = GUICtrlCreateButton("Chip", 16, 328, 121, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$PC_Welt = GUICtrlCreateButton("PC-Welt", 16, 360, 121, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$TabSheet4 = GUICtrlCreateTabItem("Buttons4")
$ick = GUICtrlCreateButton("icq", 16, 328, 123, 25, 0)
$GFX_sector = GUICtrlCreateButton("GFX-Sector", 16, 360, 121, 25, 0)
$SchuelerVZ = GUICtrlCreateButton("SchuelerVZ", 16, 296, 121, 25, 0)
GUICtrlCreateTabItem("")
$NotitzBlock = GUICtrlCreateEdit("", 8, 400, 137, 145)
GUICtrlSetData(-1, StringFormat("NotitzBlock\r\nhier texte eintragen"))
GUICtrlSetBkColor(-1, 0x3399FF)
$SPAMM = GUICtrlCreateButton("SPAMM", 8, 56, 65, 25, 0)
$Progress1 = GUICtrlCreateProgress(8, 88, 137, 25, $WS_BORDER)
GUICtrlSetCursor (-1, 15)
GUISetState(@SW_SHOW)
Dim $Form1_1_AccelTable[4][2] = [["{ENTER}", $Run],["^f", $Features],["^b", $Beenden],["^s", $SPAMM]]
GUISetAccelerators($Form1_1_AccelTable)
#EndRegion ### END Koda GUI section ###


#cs
Dies ist der Styl des programms dort sind z.B. die Befehle um Buttuns zu erstellen.
Also ähnlich wie CSS (Cascading Style Sheets).^^
#ce
;-------------------------------------------------------
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
			Exit
		Case $Run
			$pfad = GUICtrlRead ($I_input)
			GuiCtrlSetData( $NotitzBlock ,$pfad)
		If GUICtrlRead ($I_input)= "virtual box" Then ;Überprüft ob in dem Inputfeld "virtual box" steht.
			Run ("C:\Program Files\Sun\xVM VirtualBox\VirtualBox.exe")
		ElseIf GUICtrlRead ($I_input)= "wmp" Then ;Sollte "virtual box" nicht dadrin stehen werden die Elseif Befehle ausgefürt.
			Run ("C:\Program Files\Windows Media Player\wmplayer.exe")
		ElseIf GUICtrlRead ($I_input)= "mail" Then
			Run ("C:\Program Files\Windows Live\Mail\wlmail.exe")
		ElseIf GUICtrlRead ($I_input)= "rar" Then
			Run ("C:\Program Files\WinRAR\WinRar.exe")
		ElseIf GUICtrlRead ($I_input)= "foto" Then
			Run ("C:\Program Files\Windows Live\Photo Gallery\WLXPhotoGallery.exe")
        ElseIf GUICtrlRead ($I_input)= "wl" Then
			Run ("C:\Program Files\Windows Live\Messenger\msnmsgr.exe")
        ElseIf GUICtrlRead ($I_input)= "quick" Then
			Run ("C:\Program Files\QuickTime\QuickTimePlayer.exe")
		ElseIf GUICtrlRead ($I_input)= "fire" Then
			ElseIf guictrlread($I_input) = "GL" Then
		ShellExecute("http://www.godlikerz.de")
	ElseIf guictrlread($I_input) = "godlikerz" Then
		ShellExecute("http://www.godlikerz.de")
	ElseIf guictrlread($I_input) = "google" Then
		ShellExecute("http://www.google.de")
	ElseIf guictrlread($I_input) = "ingamers" Then
		ShellExecute("http://www.ingamers.de")
	ElseIf guictrlread($I_input) = "herunterfahren" Then
		Shutdown (4)
	ElseIf guictrlread($I_input) = "neustart" Then
		Shutdown (2)
	ElseIf guictrlread($I_input) = "schlaf" Then
		Shutdown (64)
	ElseIf guictrlread($I_input) = "log out" Then
		Shutdown (0)
	ElseIf guictrlread($I_input) = "stromOff" Then
		Shutdown (8)
	ElseIf guictrlread($I_input) = "chrome" Then
    Run ("C:\Users\Jan\AppData\Local\Google\Chrome\Application\chrome.exe")	
ElseIf guictrlread($I_input) = "IE" Then
	Run ("C:\Program Files\Internet Explorer\iexplore.exe")
ElseIf guictrlread($I_input) = "auto" Then
	Run ("C:\Program Files\Auto it\Auto it\AutoIt3\Kodak\FD.exe")
	Run ("C:\Program Files\Auto it\Auto it\AutoIt3\SciTE\SciTE.exe")
	Run ("C:\Program Files\Auto it\Auto it\AutoIt3.chm")
ElseIf guictrlread($I_input) = "skype" Then
		Run ("C:\Program Files\Skype\Phone\Skype.exe")	
	ElseIf guictrlread($I_input) = "team" Then
		Run ("C:\Program Files\TeamViewer\Version4\TeamViewer.exe")
ElseIf guictrlread($I_input) = "WDM" Then
		Run ("C:\Program Files\DVD Maker\DVDMaker.exe")
ElseIf guictrlread($I_input) = "virtual" Then
		Run ("C:\Program Files\Sun\xVM VirtualBox\VirtualBox.exe")
ElseIf guictrlread($I_input) = "gimp" Then
		Run ("C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe")
	ElseIf guictrlread($I_input) = "icq" Then
		Run ("C:\Program Files\ICQ6.5\ICQ.exe")
	Else ;Sollte weder das was bei if oder elseif steht stimmen wird der else befehl ausgeführt
		$pfad=guictrlread($I_input); Die Variable $pfad ließ den Inhalt des Inputfeldes.
		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./... )
	EndIf
	
;------------------------------------------------------------	
Case $auto_it
	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 ("")
	Run ("C:\Program Files\Auto it\Auto it\AutoIt3\SciTE\SciTE.exe")
	Run ("C:\Program Files\Auto it\Auto it\AutoIt3.chm")
Case $gimp
	Run ("C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe")
Case $fire
	Run ("C:\Program Files\Mozilla Firefox\firefox.exe")
Case $virtual_box
	Run ("C:\Program Files\Sun\xVM VirtualBox\VirtualBox.exe")
	Case $adob
    Run ("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe")
Case $skype
     Run ("C:\Program Files\Skype\Phone\Skype.exe")	
Case $icq
	Run ("C:\Program Files\ICQ6.5\ICQ.exe")
Case $mail
	Run ("C:\Program Files\Windows Live\Mail\wlmail.exe")
Case $teamviewer
	Run ("C:\Program Files\TeamViewer\Version4\TeamViewer.exe")
#cs Difiniert was passiert wenn man auf die icon symbole klickt
	Indiesem Fall öffnet es die Programme mit dem Befehl RUN. 
#ce
;--------------------------------------------------------------
Case $SchuelerVZ
   ShellExecute("http://www.schuelervz.net")
   Case $ick
	ShellExecute ("http://www.icq.com")
Case $GFX_sector
	ShellExecute ("http://www.gfx-sector.de")
Case $Adobe
	ShellExecute ("http://www.adobe.com/de")
Case $ingamers
	ShellExecute ("http://www.ingamers.de")
Case $Godlikerz
	ShellExecute ("http://www.godlikerz.de")
Case $Google
	ShellExecute ("http://www.google.de")
Case $Yahoo 
	ShellExecute ("http://www.yahoo.de")
Case $vBulletin
	ShellExecute ("http://www.vbulletin-germany.com")
Case $Chip
    ShellExecute ("http://www.chip.de")
Case $PC_Welt
	ShellExecute ("http://www.pcwelt.de/")
#cs Definier die buttons in der Auswahlbox
	In diesem Fall wird beim draufklicken die URL im standart Browser geöffnet. 
#ce
;----------------------------------------------------
Case $Features
	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 ")
;Die Codes werden in der Notizbox angezeigt wenn man auf funktionen klickt.
;----------------------------------------------------
Case $Beenden
	
MsgBox (0, "Programm wird geschlossen", "Hoffe du hattest Spaß mit meinem TOOL!")
	WinKill ("internet runner")
;Button Beenden wir definiert
;---------------------------------------------------
Case $SPAMM
	$pfad=GUICtrlRead ($I_input)
while 1
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox($MB_OKCANCEL, $pfad, $pfad, 1)
Select
	Case $iMsgBoxAnswer = $IDOK


	Case $iMsgBoxAnswer = $IDCANCEL
WinKill ("internet runner")
	Case $iMsgBoxAnswer = -1 ;Timeout
		
EndSelect
WEnd
	
EndSwitch
WEnd

Alles anzeigen

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

Code

[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].

Fuyo

Ganz nett , kriegst nen thx für die arbeit , brauchs aber nicht^^

temo

Zitat von Fuyo;15809

Ganz nett , kriegst nen thx für die arbeit , brauchs aber nicht^^

Klappts bei dir den? Ohne Probleme?

Daron

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

temo

Zitat von Daron;15813

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.

Fuyo

Ka habs nocht nicht getestet ^^

temo

~Push~

temo

~push again~

temo

~Push~

temo

~Push~

temo

~lol ein reiner push thread xD // Push again~

xDrago

Für eines deiner Ersten Tools ist es sehr Gut geworden^^

~*JumpStyle*~

Joa ganz nett wenn auch etwas nutzlos, bzw. sehr nutzlos aber imerhin, auserdem lernt man aus solchen tools

machs doch Open Source damit auch andere davon lernen^^

temo

Was meinst du mit open source?

~*JumpStyle*~

Les nochma was du da eben geschrieben hast xD

"Offene Souce lol"

das heißt Open Source und heit soviel wie Code veröffentlichen blabla wie auch immer^^

Also das du deine Quellcode Postest

temo

Lol sry aber öffne bitte erstmal deine AUgen bevor du postest. Den Quellcode hab ich mit gepostet als ich den guide erstellt habe.

Damit du mir glaubst siehe bearbeitungs datum des threads.

"Geändert von temo (28.06.2009 um 13:40 Uhr)"

~*JumpStyle*~

Ohh sry habe den Spoiler nich gesehen^^

xDrago

Schluss mit Gespamme^^
Und Was Open SPurce ist sollte man wissen
Und auch nicht sich peinlich verschreiben wie Open Souce xP

My inetrunner tool by temo

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES