welche von beiden??^^
die vom home-pc ist mit aston shell gemacht
und die vom laptop standart so wie ich das ding bekommen hab....
bei laptop wird in kürze debian sarge installiert....muss meinem vater nur davon überzeugen das vista noch mehr müll ist^^
snoozer
Beiträge von snoozer
-
-
soi hab mir auch mal die mühe gemacht....
home-pcSpoiler anzeigen
[Blockierte Grafik: http://snoozer.de/autoit/~tmp/home.png]
laptopSpoiler anzeigen
[Blockierte Grafik: http://snoozer.de/autoit/~tmp/laptop.png]
der snoozer
-
morgen,
hatte grob gesagt mal das gleich problem.....
bei mir wars nur so dass ich einen browser erzeugen konnte nachdem ich die iexplore.exe beendet hatte....sprich if processexsist then processkill
wär dann nicht unbedingt für die große mehrheit geeignet dieses script der snoozer
-
ganz einfach.....
[autoit]Global $file,$array[5]
[/autoit]
$file = FileOpen (@ScriptDir&"\array.txt", 2);schreibmodus wenn nicht vorhanden erstellen.
$array[0] = "zeile 1"
$array[1] = "zeile 2"
$array[2] = "zeile 3"
$array[3] = "zeile 4"
$array[4] = "zeile 5"
For $i = 0 To UBound($array)-1
FileWriteLine($file,$array[$i])
Next
[autoit]
falls was nicht klar sein sollte einfach fragen
kannst natürlich auch alles in eine zeile schreiben das geht dann in etwa so...Global $file,$array[5],$msg
[/autoit]
$file = FileOpen (@ScriptDir&"\array.txt", 2);schreibmodus wenn nicht vorhanden erstellen.
$array[0] = "zeile 1"
$array[1] = "zeile 2"
$array[2] = "zeile 3"
$array[3] = "zeile 4"
$array[4] = "zeile 5"
For $i = 0 To UBound($array)-1
$msg = $msg&";"&$array[$i]
Next
FileWriteLine($file,$msg)der snooozer
-
man muss sich auch so dort anmelden....deshalb ->
Source
Binary
Quelle (pdf) -
Zitat
Original von Alina
--> Error: no such table: Tabelle
mhhh wie heißt denn die tabelle...hab zwar mit texteditor die namen der tebllen rauskopiert aber so geht das ganz auhc nicht^^
ich würde mir die tabellen immer selber erzeugen lassen ist auch net so schwer....Spoiler anzeigen
[autoit]#include<SQLite.au3>
[/autoit]
$sql_table = @ScriptDir & "\database.db"
If (FileExists(@ScriptDIR&"\database.db")=0) Then
$ret = MsgBox(68,"Daten speichern?","Wollen Sie Daten speichern?")
Select
Case $ret = 6 ;Yes
_DoSQL("CREATE TABLE database (return, name);",$sql_table)
_DoSQL("INSERT INTO database VALUES ('"&Random(0,100)&"','"&@UserName&"');",$sql_table)
MsgBox(0,"Operation done.","Your SQLite request has been successful completed.")
Case $ret = 7 ;No
Exit
EndSelect
EndIf
$ret = MsgBox(68,"Daten auslesen?","Wollen Sie Daten Auslesen?")
Select
Case $ret = 6 ;Yes
$result = _DoSQL("SELECT * FROM database;",$sql_table)
For $i = 1 To $result[0][1]
MsgBox(0,"Operating....","Value:"&$result[$i][1]&@CRLF&"Value2:"&$result[$i][0])
Next
MsgBox(0,"Operation done.","Your SQLite request has been successful completed.")
Case $ret = 7 ;No
Exit
EndSelect
; ---> peethebee (Danke an jonk!)
Func _DoSQL($_SQL_Code, $cal_filename)
Dim $ret_array[250][15]
; Datenbank initialisieren und öffnen
_SQLite_Startup (@ScriptDir & "\sqlite3.dll")
If @error > 0 Then
MsgBoX(0, "Meldung", "SQLite-DLL konnte nicht geladen werden")
Return 0
EndIf
; hier kann man einen Standardpfad festlegen
$dbname = $cal_filename
_sqLiTe_opEn ($dbname)
If @error > 0 Then
MsgBoX(0, "Meldung", $dbname & " konnte nicht geöffnet werden (Rechte?, Datei in Benutzung?)")
Return 0
EndIf
Dim $hQuery, $aRow
$iTmp = _SQlite_Query (-1, $_SQL_Code, $hQuery)
If Not $iTmp = $SQLITE_OK Then
MsgBoX(0, "Meldung", "SQLite-Befehl verursachte einen Fehler: " & $_SQL_Code)
EndIf
$num_results = 0
While _SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK
$num_results += 1
; Daten in Array kippen und dann zurückgeben (noch nicht getestet)
For $i = 0 To UBound($aRow) - 1
$ret_array[$num_results][$i] = $aRow[$i]
Next
WEnd
; Länge des Ergebnisses erfassen, Ergebnisse ab $ret_array[1]
$ret_array[0][0] = $num_results
$ret_array[0][1] = UBound($aRow)
$iTmp = _SQLite_Close ()
If Not $iTmp = $SQLITE_OK Then
MsgBoX(0, "Meldung", "Datenbank konnte nicht geschlossen werden.")
MsgBoX(0, "Meldung", "SQLite ErrCode: " & $iTmp)
MsgBoX(0, "Meldung", "SQLite ErrMsg: " & _SQLite_ErrMsg ())
Return 0
EndIf
_SQLite_Shutdown ()
Return $ret_array
EndFunc ;==>_DoSQL -
Zitat
Original von peethebee
Hi!Jetzt mal nur vom Lesen vor einiger Zeit:
Könnte man evtl. mit FireEvent auch JavaScript-Funktionen auslösen?peethebee
[autoit]
soweit ich informiert bin kannst du nur ein "event firen" wenn du auch ein objekt hast....z.b.$button = GetObjByName($oForm,"Button")
[/autoit]
$button.fireEvent("OnClick")
wüsste jetzt nicht wie das mit autoit anders gehen könnte....am besten nochmal jonk fragen der hat auch ahnung von so nem zeugs....^^
der snoozer -
reicht nach meinem infoformationsstand leider noch nicht aus....:)
bei firefox gibts ne schicke funktion auswahlquelltext anzeigen...das zeigt den quelltext zum aktuell markierten "html-element" im browser ansprich quelltext??^^
snoozer
-
jo wär ganz praktisch
PS@umfrage:irgendwie fehlt ne neutrale meinung.........
-
coooolomatik^^
sind die mit dem teil zufrieden???
naja unterm strch ist er nicht mehr zu teuer^^ rabatt und zahl keine mwst^^
der snoozer -
mhhh es gibt auch nen video2brain für c++ (link)...ansonsten einfach googlen und beispiele durchlesen...
der snoozer -
ganz komisch.....ist das icon dem im selben pfad wie das script??? bzw existiert das icon überhaupt???
bei mir geht es wunderbar....Spoiler anzeigen
[autoit]#include<GUIConstants.au3>
[/autoit]
GUICreate("bla",1000,1000,12,2)
$Installbutton = GUICtrlCreateButton ("Installiere Shivering Isles",50,60,300,50,$BS_ICON)
GUICtrlSetOnEvent ($Installbutton,"INSTALLclicked")
GUICtrlSetImage ($Installbutton, "meinico.ico")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
WEnd
Func INSTALLclicked()
MsgBox(0,"","install clicked")
EndFunc
der snoozer -
Zitat
Original von Körperkrämer
[autoit]$Installbutton = GUICtrlCreateButton ("Installiere Shivering Isles",50,60,300,50,$BS_ICON)
[/autoit]
GUICtrlSetOnEvent ($Installbutton,"INSTALLclicked")
GUICtrlSetImage ($Installbutton, "button_install.ico")
ist dass denn dein jetziger code???
gut geht aus dem einfachen grund nicht da das semikolon ) in autoit dafür gedacht ist um kommentieren....sprich einfach mal das semikolon vor den klammeren wegmachen dann müssste es passen...
der snoozer -
//edit hab grad gesehen dass das andere geht...daran könnte es nicht liegen.....
snoozer//edit 2
[autoit]Code<input type="image" src="http://s1.jappy.tv/i/p/bge.gif" name="action" value="speichern" width="102" height="22" border="0" accesskey="S">
[/autoit]
$oImage = _IEFormElementGetObjByName($oForm, "action")
_IEAction ($oImage, "click")
sonst fällt mir echt nichts mehr ein....//edit3
da wäre sonst noch...
_IEFormImageClick oder _IEImgClick (beides zu finden in der hilfe -
so....
der quellcode sieht mal wie folgt aus....:Code<form name="gb" method="post" action="/user/snooozer/gb"> <textarea name="text" id="text" rows="10" wrap="VIRTUAL" style="width: 620px; font-size: 12px;"></textarea> <input src="http://s1.jappy.tv/i/p/bge.gif" name="action" value="speichern" accesskey="S" border="0" height="22" type="image" width="102"> <input name="typ" value="eintrag" type="hidden"> </form>
der form name ist WICHTIG!! kannste auch über index ansprechen, bei mehreren formen auf einer website ist es einfach blöd nach zu zählen welche das nu ist....
try thisSpoiler anzeigen
[autoit]#include <file.au3>
[/autoit]
#include <array.au3>
#include <misc.au3>
#include <ie.au3>
$jappylink = "http://www.jappy.de/user/"
$jappylinkende = "/GB/neu"
$daten = FileOpen("C:\Daten.txt", 0)
; Überprüft ob Datei existiert
If $daten = -1 Then
MsgBox(0, "Error", "Kann Datei nicht öffnen.(Daten.txt)")
Exit
Endif
$file = FileOpen("C:\Freunde-Thomas-jappy.txt", 0)
; Überprüft ob Datei existiert
If $file = -1 Then
MsgBox(0, "Error", "Kann Datei nicht öffnen (jappy.txt).")
Exit
EndIf
Dim $array
While 1
$text = $jappylink&FileReadLine($file)&$jappylinkende
sleep(5000)
MsgBox(0, "Example", $text)
$oIE = _IECreate($text, 0, 1) ;0,1 visible...0,0 invisible
$oHWND = _IEPropertyGet($oIE, "hwnd");bingt nichts wenn ie unsichtbar
WinSetState($oHWND, "", @SW_MAXIMIZE);bingt nichts wenn ie unsichtbar
_FileReadToArray($daten, $array)
MsgBox(0,"Anzahl der Felder",$array[0])
$oForm = _IEFormGetCollection ($oIE, "gb")
$oQuery = _IEFormElementGetObjByName($oForm, "text");klappt das so? <- jep
;ein Array hat in der Regel mehrer Felder wenn du ein bestimmtes Feld ansprechen willst geht das z. B. so:
_IEFormElementSetValue ($oQuery, $array[1])
;oder Du machst aus dem Array eine String ... was in Deinem Fall vermutlich nicht so günstig ist, da Du ja
;eine kommplette Datei im Array hast.
;_IEFormElementSetValue ($oQuery, _ArrayToString ( $array, "|" )
_IEImgClick ($oIE, "http://s1.jappy.de/p/bge.gif")
WEndZitatOriginal von jonk... poste doch einfach mal das ganze Skript ... dann läßt sich das Problem besser lösen
-
ZitatAlles anzeigen
Original von devildevil3
Spoiler anzeigen
[autoit]
[/autoit]
#include <file.au3>
#include <array.au3>
#include <misc.au3>
#include <ie.au3>
Dim $array[1];der fehler liegt HIER
_FileReadToArray($daten, $array)
msgbox(0,"Anzahl der Felder",$Array[0])
_IEFormElementSetValue ($oQuery, $array[1])
mach das Dim $array[1] einfach mal weg....dann dürfte es klappen...
der snoozer -
damit jonk das bild auch sehen kann....
Spoiler anzeigen
[Blockierte Grafik: http://snoozer.de/autoit/~tmp/pical9.jpg]
es könnte auch sein dass es sich um ein frameset handelt....
ansonsten kann ich mich jonk nur anschließen:mit quelltext mehr hilfesnoozer
ps:du aknnst denn quelltext modifizieren sodass persönliche/geschütze daten nicht weitergegeben werden, solltest aber auf keinen fall wichtige html-elemtene einfach über bord werfen...
-
ZitatAlles anzeigen
Original von jonk
[autoit]
[/autoit] [autoit][/autoit] [autoit]
_FileReadToArray($daten, $array)
$oForm = _IEFormGetCollection ($oIE, 0)
$oQuery = _IEFormElementGetObjByName($oForm, "text");klappt das so? <- jep
;ein Array hat in der Regel mehrer Felder wenn du ein bestimmtes Feld ansprechen willst geht das z. B. so:
_IEFormElementSetValue ($oQuery, $array[1] );oder Du machst aus dem Array eine String ... was in Deinem Fall vermutlich nicht so günstig ist, da Du ja
[/autoit] [autoit][/autoit] [autoit]
;eine kommplette Datei im Array hast.
;_IEFormElementSetValue ($oQuery, _ArrayToString ( $array, "|" )_IEImgClick ($oIE, "http://s1.test.dei/p/bge.gif")
[/autoit]
sicher dass dann im array auch was drinn steht?????
lass dir das array vorher(vor _IEFormElementSetValue mal anzeigen) da entsteht der fehler aus welchen gründen auch immer....
snoozer -
es gibt auch ein paar leute(in diesem forum) die sich gut mit iefunktionen auskennen....
poste einfach mal den quellcode der seite oder url geht auch....
oder beschreib doch mal genau was passiert.....für mich siehts so aus als wenn da irgendwelche exeldateien gedownloadet werden sollen....
der snoozer -
so wenn ich das richtig erkannt hab willst du z.b. aus diesem string
Code<option style="" value="573984">4:388:32</option>
die zahlenkette "4:388:32" extrahieren.....
es gibt eigentlich nur eine logische möglichkeit warum er option nicht mit irgendwas anderes ersetzt: er findet den string einfach nicht.
so nun jetzt aber problembehebung:
1. ich würde mit StringSplit arbeiten und nicht replace aber egal....
2. es könnte daran liegen dass so schicke wörter wie "option" beim auslesen des quelltextets sowas wie "OPTION"(man bemerke die groß und klein schreibung) ergeben...warum? windows+internet explorer
2a. probier mal StringSplit oder wie acuh immer mit OPTION groß geschrieben....
3. sollte 2a nicht zum erfolg führen, lies den quellcode mal mit autoit direkt aus..._IEDocReadHTML($oIE) und dann direkt in ner datei speichern....
FileWrite(FileOpen(@ScriptDir&"\file.txt",2),_IEDocReadHTML($oIE))
4. sollte drittens erfolgreich durchgefürht sein lies dir den quelltext ganz genau durch...besonders auf Groß+Kleichschreibung achten....
5.ansonsten kann ich dir net helfender snoozer