Ok das hätte ich nun mußte noch das mozrepl aktiv machen.
Setze das erst einmal auf gelöst.
Danke an alle die geholfen haben.
mfg
oh-ha
Beiträge von oh-ha
-
-
jepp,
nur habe ich den nicht als Standard
Edit : Gerade mal als Standard gemacht mit dem selbigen Erfolgmfg
oh-ha -
Habe mal dieses Skript genommen .
Spoiler anzeigen
[autoit]#include <FF.au3> ; Muss immer da sein
[/autoit] [autoit][/autoit] [autoit]
#RequireAdmin
; Ihr müsst euch ein bisschen mit QuellCode auskennen. Lasst euch den Quellcode anzeigen und sucht nach Elementen, die in der Nähe stehen,
; wie vor dem Formular für den Benutzernamen "Nutzer"_FFStart("http://www.comag.tv/board/index.php") ; Wenn der FF offen sein sollte, ist auch _FFConnect möglich! Startet den FireFox mit der Seite "www.web.de" und wartet mit Fortführung des Scripts, bis geladen
[/autoit] [autoit][/autoit] [autoit]If _FFIsConnected() Then ; Wenn die Verbindung zum FF hergestellt werden konnte, dann...
[/autoit] [autoit][/autoit] [autoit]_FFLinkClick("Anmelden","text") ; Klickt auf den Link, der "FreeMail" heisst
[/autoit] [autoit][/autoit] [autoit]_FFSetValue("TEST", "username", "name") ; Setzt in das Element mit dem Namen "" den Benutzernamen ein
[/autoit] [autoit][/autoit] [autoit]
_FFSetValue("123", "password", "name") ; Setzt in das Element mit dem Namen "" den Benutzernamen ein
_FFFormSubmit() ; Bestätigt das Formular_FFWindowClose() ; Schließt das Fenster wieder
[/autoit] [autoit][/autoit] [autoit]Else ; Sonst... (Fehlermeldung!)
[/autoit]
MsgBox(64, "Ein Fehler ist aufgetreten", "Eine Verbindung mit dem Mozilla FireFox war nicht möglich!")
EndIf
Wird mir unten in der Console auch als Connect angezeigtCode_FFConnect: AutoIt: 3.3.6.1 _FFConnect: FF.au3: 0.6.0.1b-3 _FFConnect: IP: 127.0.0.1 _FFConnect: Port: 4242 _FFConnect: Delay: 2ms
nur kommt dann immer die FehlermeldungCodeEine Verbindung mit dem Mozilla FireFox war nicht möglich!mfg
oh-ha -
LOL,
werde schon nicht mein eigenes forum hacken keine sorge.
Edit: Schreibe nur ein Programm das aber auch nur von einer bestimmten anzahl von Usern benutzt werden darf. Dafür ist dann diese Datei.
mfg
oh-ha -
moin moin,
versuche ein Tool zu schreiben das mich automatisch in einen Forum anmeldet.
Habe hier mal in der Suche gestöbert und verstehe nur noch Bahnhof.Spoiler anzeigen
[autoit]#include <IE.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <INet.au3>
#include <String.au3>
#include <array.au3>$sUsername = 'user'
[/autoit] [autoit][/autoit] [autoit]
$sPassword = 'pw'$url = "http://www.comag.tv/board/index.php"
[/autoit] [autoit][/autoit] [autoit]Global $oIE = _IECreate($url, 0, 1)
[/autoit] [autoit][/autoit] [autoit]$oform = _IEFormGetCollection($oIE, 0)
[/autoit] [autoit][/autoit] [autoit]
$oname = _IEFormElementGetObjByName($oform , "user")
$opasswd = _IEFormElementGetObjByName($oform , "pw")
$setname = _IEFormElementSetValue($oname, $sUsername)
$setpasswd = _IEFormElementSetValue($opasswd, $sPassword)$test = _IEDocReadHTML($oIE)
[/autoit]
MsgBox(0,"",$test)
Lieber wäre es mir mit dem FF gewesen aber da kommen noch mehr Fragezeichen in mir hoch.
Ich möchte mir später eine Datei vom Server runterladen, die habe ich noch nicht drauf, und mit der dann später weiterarbeiten.
Nur klappt der Login so leider nicht.mfg
oh-ha -
Jepp, bei mir auch.
Danke dir,
werde das auch so lassen und den rest fertigmachen.
Da das mit den " F* " Tasten nur sporadisch auftaucht werde ich es erst einmal vernachlässigen.Auf das mit den " $GUI_FOCUS " bin ich nicht gekommen.
mfg
oh-ha -
Verstanden habe ich das so weit, hoffe ich mal, nur wie bekomme ich den Fokus auf das Input ?
Beim durchlaufen geht der doch immer wieder auf den button.mfg
oh-ha -
moin moin,
Habe da ein Problem mit meinen Skript.
Es werden zum teil Tastenklicks doppelt angezeigt mit der GetKeyboardInput...Function von Faweyr.Skript
[autoit]#include <GuiDateTimePicker.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <Excel.au3>
#include <Array.au3>
#include <File.au3>
#include <GuiComboBox.au3>
#include <Date.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <DateTimeConstants.au3>
#include <string.au3>
#include <hotkeys.au3>
#include <Misc.au3>Global $klick, $Inputtaste, $List1
[/autoit] [autoit][/autoit] [autoit]#RequireAdmin
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]
Tastenkombination()
Func Tastenkombination()
$Tastenkombi = GUICreate("Tastenkombi", 810, 472, 405, 119)
GUISetBkColor(0x3399FF)
$Label1 = GUICtrlCreateLabel("Tasten Kombinationen", 280, 104, 277, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Hauptmpro = GUICtrlCreateButton("Zurück", 620, 390, 107, 25, BitOR($BS_FLAT,$WS_GROUP))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$beenden = GUICtrlCreateButton("Beenden", 620, 420, 107, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Einstellungen Sichern", 258, 396, 275, 33)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("", 136, 256, 585, 129)
$List1 = GUICtrlCreateEdit("", 144, 272, 569, 105, BitOR($ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Inputtaste = GUICtrlCreateInput("", 80, 168, 120, 24, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Drücke eine Taste", 176, 144, 109, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$button = GUICtrlCreateButton("Neu",208, 166, 107, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Löschen", 208, 202, 107, 25, BitOR($BS_FLAT,$WS_GROUP))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Gewählte Tastenkombination", 142, 241, 168, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateInput("", 374, 167, 121, 21)
$Label4 = GUICtrlCreateLabel("Pfadangaben", 454, 143, 79, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("Enter", 502, 165, 107, 25, BitOR($BS_FLAT,$WS_GROUP))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Löschen", 502, 201, 107, 25, BitOR($BS_FLAT,$WS_GROUP))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
GUICtrlSetOnEvent($beenden, "endmain")
GUICtrlSetOnEvent($button, "tastenklick")
While 1
Sleep(50)
WEnd
EndFunc ;==>Tastenkombinationen
#cs
Autor der GetKeyboardInput...Function: Faweyr
Site : http://www.autoit.de/index.php?page=Thread&threadID=20071
#ce
Func tastenklick()
$klick = $klick + 1
GUICtrlSetData($Inputtaste,"neue Taste bitte")
$result = GetKeyInput() ;5s warten, gibt Array zurück!
GUICtrlSetData($Inputtaste,$result[1]) ;den Name der Taste als Buttontext setze
$abc = GUICtrlRead ($Inputtaste)
;MsgBox(0,"", $abc)
IniWrite(@WindowsDir & "\system\meine.ini", "Tastenklicks", $klick, $abc)
$po = IniRead(@WindowsDir & "\system\meine.ini", "Tastenklicks", $klick, "")
GUICtrlSetData($List1, $po & " - ", "|" )
EndFunc ;==>tastenklickFunc GetKeyInput($sTime = 4000,$sBack = 0)
[/autoit] [autoit][/autoit] [autoit]
$sTimer = TimerInit()
$sDll = DllOpen("user32.dll")
Local $sList[111][3] = [ [08,"{BACKSPACE}","Backspace"], [09,"{TAB}","Tab"], [0&"D","{ENTER}","Enter"], ["A"&0,"{LSHIFT}","Left Shift"], ["A"&1,"{RSHIFT}","Right Shift"], _
[13,"{Pause}","Pause"], [14,"{CAPSLOCK}","Caps Lock"], [1&"B","{ESC}","Esc"], [20,"{SPACE}","Spacebar"], [21,"{PGUP}","Page Up"], [22,"{PGDN}","Page Down"], [23,"{End}","End"], _
[24,"{Home}","Home"], [25,"{Left}","Left Arrow"], [26,"{UP}","Up Arrow"], [27,"{Right}","Right Arrow"], [28,"{Down}","Down Arrow"], [12,"{ALT}","Alt"], [5&"C","{RWIN}","Right Windows"], _
[2&"C","{PRINTSCREEN}","Print Screen"], [2&"D","{INS}","Ins"], [2&"E","{DELETE}","Del"], [30,0,"0"], [31,1,"1"], [32,2,"2"], _
[33,3,"3"], [34,4,"4"], [35,5,"5"], [36,6,"6"], [37,7,"7"], [38,8,"8"], [39,9,"9"], _
[41,"a","A"], [42,"b","B"], [43,"c","C"], [44,"d","D"], [45,"e","E"], [46,"f","F"], [47,"g","G"], _
[48,"h","H"], [49,"i","I"], [4&"A","j","J"], [4&"B","k","K"], [4&"C","l","L"], [4&"D","m","M"], [4&"E","n","N"], _
[4&"F","o","O"], [50,"p","P"], [51,"q","Q"], [52,"r","R"], [53,"s","S"], [54,"t","T"], [55,"u","U"], _
[56,"v","V"], [57,"w","W"], [58,"x","X"], [59,"y","Y"], [5&"A","z","Z"], [60,"{NUMPAD0}","Keypad 0"], [61,"{NUMPAD1}","Keypad 1"], _
[62,"{NUMPAD2}","Keypad 2"],[63,"{NUMPAD3}","Keypad 3"], [64,"{NUMPAD4}","Keypad 4"], [65,"{NUMPAD5}","Keypad 5"], [66,"{NUMPAD6}","Keypad 6"], [67,"{NUMPAD7}","Keypad 7"], [68,"{NUMPAD8}","Keypad 8"], _
[69,"{NUMPAD9}","Keypad 9"],[6&"A","{NUMPADMULT}","Multiply"], [6&"B","{NUMPADADD}","Add"], [6&"C","{NUMPADENTER}","Separator"],[6&"D","{NUMPADSUB}","Subtract"], [6&"E","{NUMPADDOT}","Decimal"], [6&"F","{NUMPADDIV}","Divide"], _
[70,"{F1}","F1"], [71,"{F2}","F2"], [72,"{F3}","F3"], [73,"{F4}","F4"], [74,"{F5}","F5"], [75,"{F6}","F6"], [76,"{F7}","F7"], _
[77,"{F8}","F8"], [78,"{F9}","F9"], [79,"{F10}","F10"], [7&"A","{F11}","F11"], [7&"B","{F12}","F12"], [90,"{NUMLOCK}","Num Lock"], [91,"{SCROLLLOCK}","Scroll Lock"], _
["A"&2,"{LCTRL}","Left Control"], ["A"&3,"{RCTRL}","Right Control"], ["A"&4,"{LALT}","Left Menu"], ["A"&5,"{RALT}","Right Menu"], [5&"B","{LWIN}","Left Windows"] ]do
[/autoit] [autoit][/autoit] [autoit]
for $i = 0 to UBound($sList)-1 step 1
If _IsPressed($sList[$i][0], $sDll) then
DllClose($sDll)
If $sBack <> 0 then
Return $sList[$i][$sBack]
else
Local $sResult[3] = [$sList[$i][0],$sList[$i][1],$sList[$i][2]]
Return $sResult
endif
endif
Next
until $sTime <= TimerDiff($sTimer)
DllClose($sDll)
SetError(1)
EndFuncFunc endmain()
[/autoit]
Exit
EndFunc ;==>endmain
Bei der " Enter " Taste kommt es fast immer vor das sie im Input-Fenster doppelt angezeigt wird aber auch die " SPACE " Taste und sporadisch auch bei den "F* " Tasten.
Was muss ich da ändern das die tasten auch wirklich nur einmal in der Input-Box angezeigt werden ?mfg
oh-ha -
Im Prinzip richtig.
Brauche dies um eine Tastenkombination zu erstellen, diese dann in einer *.ini zu schreiben und dann später
verschiedenen Programmversionen mitzuteilen das es eine Datei erstellen und diese dann drucken soll.
Leider hat der Entwickler des Programms immer andere Kombinationen verwendet in neueren Versionen.
Um der nächsten neueren Version vorzugreifen mache ich dann halt mein Skript ein wenig variabler.mfg
oh-ha -
Bei mir geht es auch, nur möchte ich nicht ein Skript schreiben das dann später mal bei einen Fehler hängen bleibt und ich dann das suchen anfange.
Versuche jeden Fehler der auftaucht auch sofort weg zubekommen.
Man kann ja nie wissen welche Auswirkungen der dann später mal auf anderen Rechnern hat.mfg
oh-ha -
OK, danke dir das war es.
Hat dann zwar noch in Zeile 272 den selben Fehler angezeigtCodeZeile272 _SendMessage($hWnd, $HKM_SETRULES,$invalid_combination,$modifiers)
Das habe ich dann auch so ersetzt :CodeZeile272 _SendMessage($hHotkey, $HKM_SETRULES,$invalid_combination,$modifiers)
und nun geht das ganze.
Da sieht man mal wieder das es da noch so einiges zu Lernen gibt.
mfg
oh ha -
Kommt das selbige bei raus.
CodeC:\Program Files\AutoIt3\Include\hotkeys.au3(230,21) : WARNING: $hWnd: possibly used before declaration. _SendMessage($hWnd, ~~~~~~~~~~~~~~~~~~^mfg
oh-ha -
Ähm habe ich mich wohl was falsch ausgedrückt.
Das macht es auch mit dem Beispielskript das auf der Seite angeboten wird.
Also egal ob mit dem meinigen oder sonst einen.
Das ist ja das komische dabei.mfg
oh-ha -
moin moin,
muss das noch mal rauskramen.
Der Link zum Skript.http://www.autoitscript.com/forum/index.php?showtopic=96492
Bekomme immer eine fehlermeldung von dem SkriptCodeC:\Program Files\AutoIt3\Include\hotkeys.au3(230,21) : WARNING: $hWnd: possibly used before declaration.
Meine Autoit Version v3.3.4.0 falls es mit der nicht gehen sollte.
Selbst wenn ich " $hWnd " als Global setze macht es das noch.
komme da nicht weiter.Edit: Habe mir mal die Autoit Version v3.3.6.1 drauf gemacht aber leider mit dem selben Ergebnis
mfg
oh-ha -
Jepp gebe ich dir recht könnte auch die meinige werden, wenn ich denn mal in ferner Zukunft Autoit verstehen werde.
Stehe da noch am Anfang mit Autoit aber das Ende buddelt schon ein Loch für mich.
Mal schauen wer erster ist.mfg
oh-ha -
jepp das war genau das was ich gesucht habe. Danke dir
Was die Suche bei Google angeht.
Habe ein arges Problem wenn es ums Englische geht.
Liegt 30Jahre zurück und selbst da war es ein Buch mit sieben Siegeln für mich.mfg
oh-ha -
Das geht komischerweise nicht bei mir.
Zeigt gar nichts an weder die 1.6 noch die 1.7beta
Habe die Autoit Version v3.3.4.0mfg
oh-ha -
moin moin,
Wie bekommt man es hin das ein Tastendruck z.B. " F9 " in einer Input-Box ( eins in der Gui) angezeigt wird ?
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 662, 366, 192, 124)
$Label1 = GUICtrlCreateLabel("Tasten Kombinationen", 178, 11, 277, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Hauptmpro = GUICtrlCreateButton("Zurück", 518, 297, 107, 25, BitOR($BS_FLAT,$WS_GROUP))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$beenden = GUICtrlCreateButton("Beenden", 518, 327, 107, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Einstellungen Sichern", 156, 303, 275, 33)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("", 34, 163, 585, 129)
$List1 = GUICtrlCreateList("", 42, 179, 569, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$eins = GUICtrlCreateInput("eins", 34, 75, 57, 24, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Drücke eine Taste", 74, 51, 109, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Enter", 106, 73, 107, 25, BitOR($BS_FLAT,$WS_GROUP))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Löschen", 106, 109, 107, 25, BitOR($BS_FLAT,$WS_GROUP))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Gewählte Tastenkombination", 40, 148, 168, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$zwei = GUICtrlCreateInput("zwei", 272, 74, 121, 24, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Pfadangaben", 352, 50, 79, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("Enter", 400, 72, 107, 25, BitOR($BS_FLAT,$WS_GROUP))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Löschen", 400, 108, 107, 25, BitOR($BS_FLAT,$WS_GROUP))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit]
WEndOder für die " Pfeil runter " Taste soll dann " down " da erscheinen usw.
Gibt es da eine Möglichkeit bei Autoit ?
mfg
oh-ha -
Danke dir, habe da echt in einer Schleife gehangen und bin da nicht mehr raus gekommen.
mfg
oh-ha -
sorry das ich mich da ein wenig dumm ausgedrückt habe.
Das mit dem Pseudocode werde ich mir für die nächsten male merken
Wäre echt nett von dir mir das umzusetzen.
Hänge da schon ein paar Tage dran und komme null weiter.mfg
oh-ha