Wenn ich grade so daran arbeite fällt mir auf das das garnicht soviel Arbeit ist wie ich gedacht hatte .
Danke für den Weckruf BugFix!
Dann close ich das hier mal
Wenn ich grade so daran arbeite fällt mir auf das das garnicht soviel Arbeit ist wie ich gedacht hatte .
Danke für den Weckruf BugFix!
Dann close ich das hier mal
Der eigentliche Zweck des Programms liegt darin, Dateipfade und URL's Buttons zuzuweisen um sie schnell aufrufen zu können. Wenn ich beispielsweise in den Ordner Roaming will muss ich nicht erst die Windows Taste + R drücken, %appdata% eingeben und enter drücken, sondern lediglich den Button drücken. Das soll einfach Zeit sparen, und es sollen auch "Mehrbefehlbuttons" implementiert werden, also Buttons die beispielsweise Google öffnen können und bestimmte Suchbegriffe automatisch suchen oder Facebook aufrufen und die Anmeldedaten automatisch einfüllen. Hoffe das klärt deine Frage
Hey ihr Lieben,
nach langem habe ich endlich wieder Zeit zum Programmieren und habe direkt mit einem neuen Projekt angefangen.
Ich will jedoch vorweg sagen: Alle Updates usw. werden nicht hier reingestellt sondern werden hier zu finden sein.
PSU wird nach meiner Vorstellung in Deutsch und Englisch, vorerst aber NUR in englisch, verfügbar sein.
Ich suche also Programmierer die motiviert sind ein KOSTENLOSES, Spaßorientiertes Programm zu erstellen!
Wenn ihr mitmachen wollt dann schreibt mich bitte hier an.
Wenn ihr Fragen habt könnt ihr diese auch auf der Seite unter der Sparte Questions? schreiben, kann auch auf Deutsch sein ;)!
Ich würde mich über ein wenig Hilfe freuen
EDIT: natürlich könnt ihr euch auch hier melden!
Hilft mir bei meinem Problem aber auch nicht weiter....trotzdem danke!
Die ganzen Buttons etc. sind noch nicht belegt aber der Error wird in Zeile 12 angezeigt!
Sonst hab ich noch keine If/EndIf verwendet...
(Ich steh noch ganz am Anfang!)
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
If Not FileExists(@ScriptDir&"\Path.ini") Then
MsgBox(0,0,"Sie werden nun in die Optionen weitergeleitet. Bitte geben sie alle nötigen Pfade an!")
FileWrite(@ScriptDir&"\Path.ini", "Not Defined")
_Pfad
EndIf
If FileExists(@ScriptDir&"\Path.ini") Then
Pfad
EndIf
#Region ### START Koda GUI section ### Form=
$FreeBird = GUICreate("FreeBird", 449, 345, 303, 172)
$MenuItem1 = GUICtrlCreateMenu("&Menü")
$MenuItem5 = GUICtrlCreateMenuItem("Exit Shift+Ctrl+E"&@TAB&"", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("&Optionen")
$MenuItem3 = GUICtrlCreateMenu("&Hilfe")
$MenuItem4 = GUICtrlCreateMenu("Ü&ber")
$HAllo = GUICtrlCreateLabel("Hallo, bitte wählen sie eine der folgenden Optionen indem sie einen der Buttons klicken! .", 8, 8, 423, 17)
$Hallo2 = GUICtrlCreateLabel("Sie werden dann zum jeweiligen Untermenü weitergeleitet!", 88, 32, 278, 17)
$Button1 = GUICtrlCreateButton("Nicht belegt!", 8, 56, 65, 33)
$Button2 = GUICtrlCreateButton("Nicht belegt!", 80, 56, 65, 33)
$Button3 = GUICtrlCreateButton("Nicht belegt!", 152, 56, 65, 33)
$Button4 = GUICtrlCreateButton("Nicht belegt!", 224, 56, 65, 33)
$Button5 = GUICtrlCreateButton("Nicht belegt!", 296, 56, 65, 33)
$Button6 = GUICtrlCreateButton("Nicht belegt!", 368, 56, 65, 33)
$Button7 = GUICtrlCreateButton("Nicht belegt!", 8, 100, 65, 33)
$Button8 = GUICtrlCreateButton("Nicht belegt!", 80, 100, 65, 33)
$Button9 = GUICtrlCreateButton("Nicht belegt!", 152, 100, 65, 33)
$Button10 = GUICtrlCreateButton("Nicht belegt!", 224, 100, 65, 33)
$Button11 = GUICtrlCreateButton("Nicht belegt!", 296, 100, 65, 33)
$Button12 = GUICtrlCreateButton("Nicht belegt!", 368, 100, 65, 33)
$Button13 = GUICtrlCreateButton("Nicht belegt!", 8, 229, 65, 33)
$Button14 = GUICtrlCreateButton("Nicht belegt!", 80, 229, 65, 33)
$Button15 = GUICtrlCreateButton("Nicht belegt!", 152, 229, 65, 33)
$Button16 = GUICtrlCreateButton("Nicht belegt!", 224, 229, 65, 33)
$Button17 = GUICtrlCreateButton("Nicht belegt!", 296, 229, 65, 33)
$Button18 = GUICtrlCreateButton("Nicht belegt!", 368, 229, 65, 33)
$Button19 = GUICtrlCreateButton("Nicht belegt!", 8, 273, 65, 33)
$Button20 = GUICtrlCreateButton("Nicht belegt!", 80, 273, 65, 33)
$Button21 = GUICtrlCreateButton("Nicht belegt!", 152, 273, 65, 33)
$Button22 = GUICtrlCreateButton("Nicht belegt!", 224, 273, 65, 33)
$Button23 = GUICtrlCreateButton("Nicht belegt!", 296, 273, 65, 33)
$Button24 = GUICtrlCreateButton("Nicht belegt!", 368, 273, 65, 33)
$Button25 = GUICtrlCreateButton("Nicht belegt!", 8, 145, 65, 33)
$Button26 = GUICtrlCreateButton("Nicht belegt!", 80, 145, 65, 33)
$Button27 = GUICtrlCreateButton("Nicht belegt!", 152, 145, 65, 33)
$Button28 = GUICtrlCreateButton("Nicht belegt!", 224, 145, 65, 33)
$Button29 = GUICtrlCreateButton("Nicht belegt!", 296, 145, 65, 33)
$Button30 = GUICtrlCreateButton("Nicht belegt!", 368, 145, 65, 33)
$Button31 = GUICtrlCreateButton("Nicht belegt!", 8, 189, 65, 33)
$Button32 = GUICtrlCreateButton("Nicht belegt!", 80, 189, 65, 33)
$Button33 = GUICtrlCreateButton("Nicht belegt!", 152, 189, 65, 33)
$Button34 = GUICtrlCreateButton("Nicht belegt!", 224, 189, 65, 33)
$Button35 = GUICtrlCreateButton("Nicht belegt!", 296, 189, 65, 33)
$Button36 = GUICtrlCreateButton("Nicht belegt!", 368, 189, 65, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem5
Exit
Case $Button1
Case $Button2
Case $Button3
Case $Button4
Case $Button5
Case $Button6
Case $Button7
Case $Button8
Case $Button9
Case $Button10
Case $Button11
Case $Button12
Case $Button13
Case $Button14
Case $Button15
Case $Button16
Case $Button17
Case $Button18
Case $Button19
Case $Button20
Case $Button21
Case $Button22
Case $Button23
Case $Button24
Case $Button25
Case $Button26
Case $Button27
Case $Button28
Case $Button29
Case $Button30
Case $Button31
Case $Button32
Case $Button33
Case $Button34
Case $Button35
Case $Button36
EndSwitch
WEnd
Func _Pfad
$Path1 = IniRead( @ScriptDir&"Path.ini", "Line1")
EndFunc
Die 2te Möglichkeit wäre soweit ok, der Error will aber nich gehen
ich bekomme bei folgendem einen Syntax-Error und weiß nicht wieso: (Zeile 5)
If Not FileExists(@ScriptDir&"\Path.ini") Then
MsgBox(0,0,"Sie werden nun in die Optionen weitergeleitet. Bitte geben sie alle nötigen Pfade an!")
FileWrite(@ScriptDir&"\Path.ini", "Not Defined")
_Pfad
If FileExists(@ScriptDir&"\Path.ini") Then
_Pfad
EndIf
Danke im Voraus
Hallo,
ich möchte ein Multitool erstellen von dem aus der Benutzer einige Programme (bspw:: Firefox, Word, Skype, etc...) öffnen kann...
Da ich nun aber die Pfade der dateien brauche und nicht weiß wie ich das machen kann brauche ich ein bischen Hilfe
Ich hatte mir das im Prinzip so vorgestellt das das Programm alle Pfade in einer z.B. Txt datei speichert. Wenn diese nicht vorhanden ist wird der User darauf hingewiesen und in die Optionen geleitet wo er dann die Pfade eingibt.....
Danke im Voraus
Falls ihr noch Helfer sucht:
<----------------
Skype: minimalte95
Ok 1tens ich hab in sklype dir das schon 20 mal erklärt und 2tens....ja das mein ich Raupi , es ist fürn Browser Free Bird, ist jetzt erledigt!
Mhhhmmmmmmm geht nicht.!
ICh möchte das ein Input, wenn er angeklickt ist, nich mit GuiCtrlSetState editiert werden darf......wenn er jedoch nicht angeklickt ist, darf er editiert werden!
Hab auch Vista.....will Win7 aber hab im Moment nich soooo viel kohle für n ordentlichen gaming-PC
@H2112....habs abgeändert
[autoit]If _IsPressed("0D") And WinActive($GUI_main) Then
_Send()
EndIf
DIe Func _Send() hab ich scho definiert.....
Jetzt klappt alles
@XovoxKingdom.......ähhhm check das script iwie nich....
DANKE!
Wo muss ich das einfügen könnts du das vllt ins Scripteinfügen!
Hi,
ich möchte das bei dem Browser die URL aus dem Input mit dem Button "Send" und mit der EnterTaste geladen wird......!
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <IE.au3>
#include <TreeViewConstants.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <GuiEdit.au3>
#include <GuiConstantsEx.au3>
#Include <Misc.au3>
$IE = _IECreateEmbedded()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=c:\users\malte\desktop\autoit scripts\koda_2008-10-03\forms\browser.kxf
$GUI_main = GUICreate("FreeBird", 1186, 889, 51, 44)
$Adresszeile = GUICtrlCreateInput("http://www.google.de/", 96, 8, 425, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("URL:", 16, 8, 34, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$GUI_Send = GUICtrlCreateButton("Send", 528, 8, 75, 25, 0)
$GUI_Home = GUICtrlCreateButton("Home", 608, 8, 67, 25, 0)
$GUI_menu_datei = GUICtrlCreateMenu("Datei")
$GUI_menu_Einstellungen = GUICtrlCreateMenu("Einstellungen")
$Gui_menu_e2 = GUICtrlCreateMenuItem("Einstellungen", $GUI_menu_Einstellungen)
$Gui_menu_facebook = GUICtrlCreateMenu("Facebook")
$Gui_facebook = GUICtrlCreateMenuItem("Facebook-Anmeldung", $Gui_menu_facebook)
$GUI_menu_about = GUICtrlCreateMenu("About")
$Gui_menu_a2 = GUICtrlCreateMenuItem("About", $GUI_menu_about)
$browser = GUICtrlCreateObj($IE, 0, 40, 1164, 788)
$GUI_Menu_Beenden = GUICtrlCreateMenuItem("Beenden", $GUI_menu_datei)
$Enter_KEY = GUICtrlCreateDummy()
Dim $Arr[1][2] = [["{ENTER}", $Enter_KEY]]
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_IENavigate($IE, "http://www.google.de/")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($GUI_main)
Exit
Case $GUI_menu_datei
Case $GUI_menu_Einstellungen
Case $Gui_menu_e2
_Einstellungen()
Case $GUI_menu_about
Case $Gui_menu_a2
MsgBox(0, "About FreeBird", "FreeBird was written by MalteH2012 and Fabi!" & @CRLF & "It was not maden for commercials, just for private use!" & @CRLF & "Dont edit script!")
Case $GUI_Menu_Beenden
GUIDelete($GUI_main)
Exit
Case $GUI_Send
_Send()
Case $Enter_KEY
_Send()
Case $GUI_Home
_IENavigate($IE, "http://www.google.de")
Case $Gui_facebook
_IENavigate($IE, "http://www.facebook.de")
Sleep(3000)
$FacebookName = InputBox("Name", "Please insert your facebook username: ")
Sleep(200)
Send($FacebookName)
Sleep(3000)
Send("{Tab}")
Sleep(200)
$Pass = InputBox("Passwort", "Please insert your facebook Password: ")
Send($Pass)
Sleep(1000)
Send("{Enter}")
EndSwitch
WEnd
Func _Send()
$html = GUICtrlRead($Adresszeile)
_IENavigate($IE, $html)
EndFunc
Func _Einstellungen()
$gui = GuiCreate("Firebird Einstellungen",300,200)
GUICtrlCreateLabel("Startseite:", 0,2)
$readhp = IniRead(@ScriptDir & "\Einstellungen.ini","Internet","Startseite","http://www.google.de/")
$hp = GUICtrlCreateInput("",55,2.5,220)
GUICtrlSetData($hp,$readhp)
$save = GUICtrlCreateButton("Speichern", 230, 175)
$close = GUICtrlCreateButton("Abbrechen",150,175)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$fbeinstellungen = GUIGetMsg()
Select
Case $fbeinstellungen = $GUI_EVENT_CLOSE
GUIDelete($gui)
Case $fbeinstellungen = $save
$sethp = GUICtrlRead($hp)
IniWrite(@ScriptDir & "\Einstellungen.ini","Internet","Startseite","" & $sethp)
GUIDelete($gui)
Run("Free Bird.exe")
Exit
Case $fbeinstellungen = $close
GUIDelete($gui)
Run("Free Bird.exe")
Exit
EndSelect
[/autoit] [autoit][/autoit] [autoit]WEnd
While GuiGetMsg() <> $GUI_EVENT_CLOSE
WEnd
EndFunc