muss irgend ein passwort eingeben..!!
Beiträge von micha1621
-
-
Hallo @ all ..
Ich kenne mich leider nicht so gut aus in sqlite..das ist schon ein kleines problem.
bin aber lernbereit.
nun zu meinem folgenden problem.ich habe ein kleines programm was mir bei meiner arbeit etwas helfen soll.
Ich arbeite in der Gastronomie.
es soll meine daten in eine datenbank eintragen und auslesen diese dann in die entsprechenden eintragen/auslesen.vielleicht kann mir jemand helfen dies zu erklären wie ich ein input feld auslese(das ist klar) und in die sqlite datenbank eintrage in ein neues feld..
hier mein programm beispiel.
Spoiler anzeigen
[autoit];denke daran das du noch in dem programm die inputfelder sortieren musst wenn du alles zusammenbaust.
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;und das du sie sortierst.
;und die if anweisungen kontrolieren die hauen nicht hin.
;und das du ladebalken erstellst mit gui.so das beim auslesen oder programmstart eine zweite ui kommt mit ladebalken.
;der dafür notwendige include ist schon drinne;EIN HERSTELLERFELD MUSS NOCH ERSTELLT WERDEN
[/autoit] [autoit][/autoit] [autoit]
Opt("GUIOnEventMode", 0)
#NoTrayIcon
#include <GuiListView.au3>
#include <GUIConstants.au3>
#include "SQLite.au3"#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>#include <GUIListBox.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <IE.au3>
#include <WinAPI.au3>;----------------------------------------
[/autoit] [autoit][/autoit] [autoit]
#include <array.au3>
#include "mysql.au3"
; MYSQL starten, DLL im PATH (enthält auch @ScriptDir), sont Pfad zur DLL angeben. DLL muss libmysql.dll heißen.
;-----------------------------------
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Verwaltungs- / Warenbestandsprogramm Vers.: 1.00 by Black_Hackers", 803, 669, 180, 52)
$Tab1 = GUICtrlCreateTab(8, 8, 785, 649)
$TabSheet1 = GUICtrlCreateTabItem("Waren Eintragen")
GUICtrlSetState(-1,$GUI_SHOW)
$Group1 = GUICtrlCreateGroup("Waren Eintragen", 16, 41, 769, 265)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("Produkt-Nr.:", 32, 65, 169, 22)
$Input2 = GUICtrlCreateInput("Produkt.:", 32, 89, 169, 22)
$Combo1 = GUICtrlCreateCombo("Einheit wählen", 32, 113, 169, 25)
GUICtrlSetData(-1, "Kg|Gramm|Stk|Liter|Flaschen|Dosen|Kisten")
$Combo2 = GUICtrlCreateCombo("Abteilung wählen", 32, 137, 169, 25)
GUICtrlSetData(-1, "Küche|Service|Sonstiges")
$Input3 = GUICtrlCreateInput("Maximal-Bestand.:", 32, 161, 169, 22)
$Input4 = GUICtrlCreateInput("Melde-Bestand.:", 32, 185, 169, 22)
$Input5 = GUICtrlCreateInput("Mindest-Bestand.:", 32, 209, 169, 22)
$Input6 = GUICtrlCreateInput("Preis.:", 32, 233, 169, 22)
$Input7 = GUICtrlCreateInput("Lieferant.:", 216, 65, 169, 22)
$Input8 = GUICtrlCreateInput("Kunden-Nummer.:", 216, 89, 169, 22)
$Input9 = GUICtrlCreateInput("Adresse.: Straße, Hausnummer", 216, 113, 169, 22)
$Input10 = GUICtrlCreateInput("Adresse.: Plz, Ort", 216, 137, 169, 22)
$Input11 = GUICtrlCreateInput("Telefon-Nr.:", 216, 161, 169, 22)
$Input12 = GUICtrlCreateInput("Fax-Nr.:", 216, 185, 169, 22)
$Input13 = GUICtrlCreateInput("Internetseite.:", 216, 209, 169, 22)
$Input14 = GUICtrlCreateInput("Bemerkung.:", 216, 233, 169, 22)
$MonthCal1 = GUICtrlCreateMonthCal("2012/06/08", 400, 65, 185, 185); <--------hier soll er die daten aus der config dann lesen.
$Date1 = GUICtrlCreateDate("2012/06/08 07:33:19", 592, 65, 185, 193)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Ware Eintragen", 24, 265, 753, 33)
$Group2 = GUICtrlCreateGroup("Waren Löschen", 16, 313, 769, 265)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Combo3 = GUICtrlCreateCombo("Produkt wählen", 30, 335, 169, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Input15 = GUICtrlCreateInput("Produkt-Nr.:", 30, 359, 169, 22)
$Input16 = GUICtrlCreateInput("Einheit.:", 30, 383, 169, 22)
$Input17 = GUICtrlCreateInput("Abteilung.:", 30, 407, 169, 22)
$Input18 = GUICtrlCreateInput("Maximal-Bestand.:", 30, 431, 169, 22)
$Input19 = GUICtrlCreateInput("Melde-Bestand.:", 30, 455, 169, 22)
$Input20 = GUICtrlCreateInput("Mindest-Bestand.:", 30, 479, 169, 22)
$Input21 = GUICtrlCreateInput("Preis.:", 30, 503, 169, 22)
$Input22 = GUICtrlCreateInput("Lieferant.:", 213, 335, 169, 22)
$Input23 = GUICtrlCreateInput("Kunden-Nummer.:", 213, 359, 169, 22)
$Input24 = GUICtrlCreateInput("Adresse.: Straße, Hausnummer", 213, 383, 169, 22)
$Input25 = GUICtrlCreateInput("Adresse.: Plz, Ort", 213, 407, 169, 22)
$Input26 = GUICtrlCreateInput("Telefon-Nr.:", 213, 431, 169, 22)
$Input27 = GUICtrlCreateInput("Fax-Nr.:", 213, 455, 169, 22)
$Input28 = GUICtrlCreateInput("Internetseite.:", 213, 479, 169, 22)
$Input29 = GUICtrlCreateInput("Bemerkung.:", 213, 503, 169, 22)
$Date2 = GUICtrlCreateDate("2012/06/08 07:33:22", 592, 337, 185, 193)
$MonthCal2 = GUICtrlCreateMonthCal("2012/06/08", 392, 337, 185, 185)
$Button2 = GUICtrlCreateButton("Ware abrufen", 24, 538, 361, 33)
$Button3 = GUICtrlCreateButton("Waren löschen", 399, 538, 377, 33)
$Edit1 = GUICtrlCreateEdit("WERBEBANNER", 16, 585, 769, 65)
GUICtrlSetData(-1, "WERBEBANNER")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$COMBOaktuel = IniReadSectionNames(@ScriptDir & "\index.ini")If FileExists($COMBOaktuel) Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
MsgBox(4096, "Datei C:\autoexec.bat", "Existiert")Else
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
For $i = 1 To $COMBOaktuel[0]
GUICtrlSetData ($Combo3 , $COMBOaktuel[$i])
GUISetState (-1)
Next
EndIfWhile 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_DATENiniPRUEFEN()
_warenSCHREIBEN()
_INPUTauslesen()
Case $Button2
ExitLoopEndSwitch
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
WEndFunc _DATENiniPRUEFEN()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$SEKTION = GUICtrlRead($Input1)
$variable1 = IniReadSection(@ScriptDir & "\index", $SEKTION)If @error Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(4096, "Achtung", "keine Ini Datei vorhanden, oder kein Eintrg gefunden")Else
[/autoit] [autoit][/autoit] [autoit]
For $i1 = 1 To $variable1[0][0]
GUICtrlSetData ($Input1,$SEKTION)
GUICtrlSetData ($Input2,$variable1[$i1][0])
GUICtrlSetData ($Combo1,$variable1[$i1][1])
MsgBox(16,"Achtung","Der Eintrag ist bereits Vorhanden.")
Next
EndIfEndFunc
[/autoit] [autoit][/autoit] [autoit];hier unten soll mit einer if anweisung überprüft werden ob der eintrag vorhanden ist.Die ifabfrage hat noch so seine macken.
[/autoit] [autoit][/autoit] [autoit]Func _warenSCHREIBEN()
[/autoit] [autoit][/autoit] [autoit]
$SEKTION = GUICtrlRead($Input1)
$LESEausINPUT = GUICtrlRead($Input1)
$LESEausINI = IniReadSection(@ScriptDir & "\index.ini", $SEKTION)
$LESEfilename2 = GUICtrlRead ($Input1)
$LESEsection2 = GUICtrlRead($Input2)
$LESEkey2 = GUICtrlRead($Combo1)
$LESEvalue2 = GUICtrlRead($Combo2)
$INIschreiben = IniWrite (@ScriptDir & "\index.ini",$LESEfilename2,$LESEsection2,$LESEkey2)If $LESEausINI < 0 Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(1,"","bereits vorhanden")
ElseIf $LESEausINI > 0 Then
MsgBox(48,"Daten erstellt","Ihr Eintrag wurde erfolgreich erstellt.")EndIf
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;hier soll er alle einträge in eine ini datei eintragen.aber den ini namen der zur erstellenden ini soll er aus der index ini lesen.
Func _INPUTauslesen()$leseCOMBO1 = GUICtrlRead($Combo1)
[/autoit] [autoit][/autoit] [autoit]
$leseCOMBO2 = GUICtrlRead($Combo2)
$leseINPUT1 = GUICtrlRead($Input1)
$leseINPUT2 = GUICtrlRead($Input2)
$leseINPUT3 = GUICtrlRead($Input3)
$leseINPUT4 = GUICtrlRead($Input4)
$leseINPUT5 = GUICtrlRead($Input5)
$leseINPUT6 = GUICtrlRead($Input6)
$leseINPUT7 = GUICtrlRead($Input7)
$leseINPUT8 = GUICtrlRead($Input8)
$leseINPUT9 = GUICtrlRead($Input9)
$leseINPUT10 = GUICtrlRead($Input10)
$leseINPUT11 = GUICtrlRead($Input11)
$leseINPUT12 = GUICtrlRead($Input12)
$leseINPUT13 = GUICtrlRead($Input13)
$leseINPUT14 = GUICtrlRead($Input14)$var = IniReadSectionNames(@ScriptDir & "\index.ini")
[/autoit] [autoit][/autoit] [autoit]If @error Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Wahrscheinlich keine INI Datei vorhanden.")
Else
For $i = 1 To $var[0]
MsgBox(4096, "", $var[$i])
IniWrite (@ScriptDir & "\index.ini",$var[$i],"Produkt-Nr.:"& $leseInput1 & @CRLF & "Produkt.:"& $leseInput2 & @CRLF & "Einheit.:"& $leseCombo1 & @CRLF & "Abteilung.:"& $leseCombo2 & @CRLF & "Maximal.:" & $leseInput3 & @CRLF & "Melde.:" & $leseInput4 & @CRLF & "Minimal.:" & $leseInput5 & @CRLF & "Preis.:" & $leseInput6 & @CRLF & "Lieferant.:"& $leseInput7 & @CRLF & "Kunden-Nr.:" & $leseInput8 & @CRLF & "Strasse.:" & $leseInput9 & @CRLF & "Ort.:" & $leseInput10 & @CRLF & "Tel-Nr.:" & $leseInput11 & @CRLF & "Fax-Nr.:"& $leseInput12 & @CRLF & "Internet.:" & $leseInput13 & @CRLF & "Bemerkung.:" & $leseInput14,"")
NextEndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndFunc; MYSQL starten, DLL im PATH (enthält auch @ScriptDir), sont Pfad zur DLL angeben. DLL muss libmysql.dll heißen.
[/autoit] [autoit][/autoit] [autoit]
_MySQL_InitLibrary()
If @error Then Exit MsgBox(0, '', "")
MsgBox(0, "DLL Version:",_MySQL_Get_Client_Version()&@CRLF& _MySQL_Get_Client_Info())$MysqlConn = _MySQL_Init()
[/autoit] [autoit][/autoit] [autoit];Fehler Demo:
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Fehler-Demo","Fehler-Demo")
$connected = _MySQL_Real_Connect($MysqlConn,"127.0.0.1","root","","micha1621")
If $connected = 0 Then
$errno = _MySQL_errno($MysqlConn)
MsgBox(0,"Error:",$errno & @LF & _MySQL_error($MysqlConn))
If $errno = $CR_UNKNOWN_HOST Then MsgBox(0,"Error:","$CR_UNKNOWN_HOST" & @LF & $CR_UNKNOWN_HOST)
Endif; XAMPP micha1621
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "XAMPP-Micha1621-demo", "XAMPP-micha1621-demo")$connected = _MySQL_Real_Connect($MysqlConn, "127.0.0.1", "root", "", "micha1621")
[/autoit] [autoit][/autoit] [autoit]
If $connected = 0 Then Exit MsgBox(16, 'Connection Error', _MySQL_Error($MysqlConn))$query = "SELECT * FROM `kontakt-daten`"
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_MySQL_Real_Query($MysqlConn, $query)$res = _MySQL_Store_Result($MysqlConn)
[/autoit] [autoit][/autoit] [autoit]$fields = _MySQL_Num_Fields($res)
[/autoit] [autoit][/autoit] [autoit]$rows = _MySQL_Num_Rows($res)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "", $rows & "-" & $fields)MsgBox(0, '', "Zugriff Methode 3 - alles in ein 2D Array")
[/autoit] [autoit][/autoit] [autoit]
$array = _MySQL_Fetch_Result_StringArray($res)
_ArrayDisplay($array)
$array[0] = $array[0]
For $i = $i +1
MsgBox(0,"",$array[$i])Next
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; Abfrage freigeben
[/autoit] [autoit][/autoit] [autoit]
_MySQL_Free_Result($res); Verbindung beenden
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
_MySQL_Close($MysqlConn)
; MYSQL beenden
_MySQL_EndLibrary()hier meine datenbank
Spoiler anzeigen
SQL
Alles anzeigen-- phpMyAdmin SQL Dump -- version 3.4.5 -- http://www.phpmyadmin.net -- -- Host: localhost -- Erstellungszeit: 23. Sep 2012 um 14:12 -- Server Version: 5.5.16 -- PHP-Version: 5.3.8 SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO"; SET time_zone = "+00:00"; /*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */; /*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */; /*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */; /*!40101 SET NAMES utf8 */; -- -- Datenbank: `micha1621` -- -- -------------------------------------------------------- -- -- Tabellenstruktur für Tabelle `kontakt-daten` -- CREATE TABLE IF NOT EXISTS `kontakt-daten` ( `Kontakt` varchar(200) COLLATE latin1_general_ci DEFAULT NULL, `Straße` varchar(200) COLLATE latin1_general_ci DEFAULT NULL, `Kundennummer` int(11) DEFAULT NULL, `Plz` varchar(5) COLLATE latin1_general_ci DEFAULT NULL, `Telefonnummer` int(15) DEFAULT NULL, `Faxnummer` int(15) DEFAULT NULL, `Internet Adresse` varchar(50) COLLATE latin1_general_ci DEFAULT NULL, `Bemerkung` varchar(500) COLLATE latin1_general_ci DEFAULT NULL, `Logo` int(100) DEFAULT NULL, `id` bigint(20) unsigned NOT NULL AUTO_INCREMENT, PRIMARY KEY (`id`) ) ENGINE=MyISAM DEFAULT CHARSET=latin1 COLLATE=latin1_general_ci AUTO_INCREMENT=1 ; /*!40101 SET CHARACTER_SET_CLIENT=@OLD_CHARACTER_SET_CLIENT */; /*!40101 SET CHARACTER_SET_RESULTS=@OLD_CHARACTER_SET_RESULTS */; /*!40101 SET COLLATION_CONNECTION=@OLD_COLLATION_CONNECTION */;
Habe schon einen lösungsansatz..
aber bekomme kein nix ausgelesen.Spoiler anzeigen
[autoit];EIN HERSTELLERFELD MUSS NOCH ERSTELLT WERDEN
[/autoit] [autoit][/autoit] [autoit]
Opt("GUIOnEventMode", 0)
#NoTrayIcon
#include <GuiListView.au3>
#include <GUIConstants.au3>
#include "SQLite.au3"#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>#include <GUIListBox.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <IE.au3>
#include <WinAPI.au3>;----------------------------------------
[/autoit] [autoit][/autoit] [autoit]
#include <array.au3>
#include "mysql.au3"
; MYSQL starten, DLL im PATH (enthält auch @ScriptDir), sont Pfad zur DLL angeben. DLL muss libmysql.dll heißen.
;-----------------------------------
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Verwaltungs- / Warenbestandsprogramm Vers.: 1.00 by Black_Hackers", 803, 669, 180, 52)
$Tab1 = GUICtrlCreateTab(8, 8, 785, 649)
$TabSheet1 = GUICtrlCreateTabItem("Waren Eintragen")
GUICtrlSetState(-1,$GUI_SHOW)
$Group1 = GUICtrlCreateGroup("Waren Eintragen", 16, 41, 769, 265)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("Produkt-Nr.:", 32, 65, 169, 22)
$Input2 = GUICtrlCreateInput("Produkt.:", 32, 89, 169, 22)
$Combo1 = GUICtrlCreateCombo("Einheit wählen", 32, 113, 169, 25)
GUICtrlSetData(-1, "Kg|Gramm|Stk|Liter|Flaschen|Dosen|Kisten")
$Combo2 = GUICtrlCreateCombo("Abteilung wählen", 32, 137, 169, 25)
GUICtrlSetData(-1, "Küche|Service|Sonstiges")
$Input3 = GUICtrlCreateInput("Maximal-Bestand.:", 32, 161, 169, 22)
$Input4 = GUICtrlCreateInput("Melde-Bestand.:", 32, 185, 169, 22)
$Input5 = GUICtrlCreateInput("Mindest-Bestand.:", 32, 209, 169, 22)
$Input6 = GUICtrlCreateInput("Preis.:", 32, 233, 169, 22)
$Input7 = GUICtrlCreateInput("Lieferant.:", 216, 65, 169, 22)
$Input8 = GUICtrlCreateInput("Kunden-Nummer.:", 216, 89, 169, 22)
$Input9 = GUICtrlCreateInput("Adresse.: Straße, Hausnummer", 216, 113, 169, 22)
$Input10 = GUICtrlCreateInput("Adresse.: Plz, Ort", 216, 137, 169, 22)
$Input11 = GUICtrlCreateInput("Telefon-Nr.:", 216, 161, 169, 22)
$Input12 = GUICtrlCreateInput("Fax-Nr.:", 216, 185, 169, 22)
$Input13 = GUICtrlCreateInput("Internetseite.:", 216, 209, 169, 22)
$Input14 = GUICtrlCreateInput("Bemerkung.:", 216, 233, 169, 22)
$MonthCal1 = GUICtrlCreateMonthCal("2012/06/08", 400, 65, 185, 185); <--------hier soll er die daten aus der config dann lesen.
$Date1 = GUICtrlCreateDate("2012/06/08 07:33:19", 592, 65, 185, 193)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Ware Eintragen", 24, 265, 753, 33)
$Group2 = GUICtrlCreateGroup("Waren Löschen", 16, 313, 769, 265)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Combo3 = GUICtrlCreateCombo("Produkt wählen", 30, 335, 169, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "mutti|Metro|Zur Linde")
$Input15 = GUICtrlCreateInput("Produkt-Nr.:", 30, 359, 169, 22)
$Input16 = GUICtrlCreateInput("Einheit.:", 30, 383, 169, 22)
$Input17 = GUICtrlCreateInput("Abteilung.:", 30, 407, 169, 22)
$Input18 = GUICtrlCreateInput("Maximal-Bestand.:", 30, 431, 169, 22)
$Input19 = GUICtrlCreateInput("Melde-Bestand.:", 30, 455, 169, 22)
$Input20 = GUICtrlCreateInput("Mindest-Bestand.:", 30, 479, 169, 22)
$Input21 = GUICtrlCreateInput("Preis.:", 30, 503, 169, 22)
$Input22 = GUICtrlCreateInput("Lieferant.:", 213, 335, 169, 22)
$Input23 = GUICtrlCreateInput("Kunden-Nummer.:", 213, 359, 169, 22)
$Input24 = GUICtrlCreateInput("Adresse.: Straße, Hausnummer", 213, 383, 169, 22)
$Input25 = GUICtrlCreateInput("Adresse.: Plz, Ort", 213, 407, 169, 22)
$Input26 = GUICtrlCreateInput("Telefon-Nr.:", 213, 431, 169, 22)
$Input27 = GUICtrlCreateInput("Fax-Nr.:", 213, 455, 169, 22)
$Input28 = GUICtrlCreateInput("Internetseite.:", 213, 479, 169, 22)
$Input29 = GUICtrlCreateInput("Bemerkung.:", 213, 503, 169, 22)
$Date2 = GUICtrlCreateDate("2012/06/08 07:33:22", 592, 337, 185, 193)
$MonthCal2 = GUICtrlCreateMonthCal("2012/06/08", 392, 337, 185, 185)
$Button2 = GUICtrlCreateButton("Ware abrufen", 24, 538, 361, 33)
$Button3 = GUICtrlCreateButton("Waren löschen", 399, 538, 377, 33)
$Edit1 = GUICtrlCreateEdit("WERBEBANNER", 16, 585, 769, 65)
GUICtrlSetData(-1, "WERBEBANNER")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$COMBOaktuel = IniReadSectionNames(@ScriptDir & "\index.ini")If FileExists($COMBOaktuel) Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
MsgBox(4096, "Datei C:\autoexec.bat", "Existiert")Else
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
For $i = 1 To $COMBOaktuel[0]
GUICtrlSetData ($Combo3 , $COMBOaktuel[$i])
GUISetState (-1)
Next
EndIfWhile 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1Case $Button2
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
ExitLoopEndSwitch
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
WEnd_MySQL_InitLibrary()
[/autoit] [autoit][/autoit] [autoit]
If @error Then Exit MsgBox(0, 'Error', "Failed to load libmysql.dll!")$MysqlConn = _MySQL_Init()
[/autoit] [autoit][/autoit] [autoit]
$connected = _MySQL_Real_Connect($MysqlConn, "127.0.0.1", "root", "", "micha1621")
If $connected = 0 Then Exit MsgBox(16, 'Connection Error', _MySQL_Error($MysqlConn))$Produkt = GUICtrlRead ($Combo3)
[/autoit] [autoit][/autoit] [autoit]
$sUserNameEscaped = _MySQL_Real_Escape_String($MysqlConn, $Produkt)
_MySQL_Real_Query ($MysqlConn, "SELECT * FROM kontakt-daten WHERE Kontakt = '" & $sUserNameEscaped & "';")
$hQueryResult = _MySQL_Store_Result($MysqlConn)
If Not $hQueryResult Then Exit MsgBox(0, "", "No Result")
$aFirstRow = _MySQL_Fetch_Row_StringArray ($hQueryResult)
_MySQL_Free_Result($hQueryResult)MsgBox (0, "Produkt", $Produkt & " has " & $aFirstRow[0] & " Daten.")
[/autoit] -
[autoit]
#include <ButtonConstants.au3>
[/autoit][autoit][/autoit][autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 318, 97, 196, 152)
$Input1 = GUICtrlCreateInput("Input1", 16, 16, 145, 21)
$Input2 = GUICtrlCreateInput("Input2", 168, 16, 129, 21)
$Button1 = GUICtrlCreateButton("Button1", 16, 48, 281, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_login()EndSwitch
[/autoit][autoit][/autoit][autoit]
WEndFunc _login()
[/autoit][autoit][/autoit][autoit][/autoit][autoit]$Names = GUICtrlRead ($Input1)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$Orts = GUICtrlRead ($Input2)$IEs =_IECreate("http://www.singlesleipzig.de/account.php", 1, 1)
[/autoit][autoit][/autoit][autoit]$Forms =_IEFormGetObjByName($IEs, 1)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]$Usernames2=_IEFormElementGetObjByName($Forms, "username")
[/autoit][autoit][/autoit][autoit]
_IEFormElementSetValue($Usernames2, $Names)$Passworts= _IEFormElementGetObjByName($Forms, "passwrd")
[/autoit][autoit][/autoit][autoit]
_IEFormElementSetValue($Passworts, $Orts)$oSubmit = _IEGetObjByName ($IEs, "login")
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
_IEAction ($oSubmit, "click")EndFunc
[/autoit] -
hallo heute irgendwas geht nicht bei mir..
kann mir jemand sagen was ich falsch mache..
ich starte mein bot..und da kommt dann so ein fehler..Code
Alles anzeigen>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Dokumente und Einstellungen\Dirkilein\Desktop\Autoit\login.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams +>14:28:36 Starting AutoIt3Wrapper v.2.0.1.24 Environment(Language:0407 Keyboard:00000407 OS:WIN_XP/Service Pack 3 CPU:X86 OS:X86) >Running AU3Check (1.54.19.0) from:C:\Programme\AutoIt3 +>14:28:36 AU3Check ended.rc:0 >Running:(3.3.6.1):C:\Programme\AutoIt3\autoit3.exe "C:\Dokumente und Einstellungen\Dirkilein\Desktop\Autoit\login.au3" --> IE.au3 Warning from function _IEFormElementGetObjByName, $_IEStatus_NoMatch --> IE.au3 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType --> IE.au3 Warning from function _IEFormElementGetObjByName, $_IEStatus_NoMatch --> IE.au3 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType --> IE.au3 Warning from function _IEGetObjByName, $_IEStatus_NoMatch --> IE.au3 Error from function _IEAction, $_IEStatus_InvalidDataType
-
airbord 4000
-
hmmm schon hast schon recht aber andere sachen kann er dafür ..
und internet kann er und gps und co.. war ja ne frage.. -
ich finde ja nix deswegen frage ich ja. und kenne mich auch mit pda´s nicht so aus.. habe seit gesern einen..
-
und gibt es so was wie autoit ..?
-
oder gibt es so was wie autoit für den pda.?
-
hallo ich habe mal eine frage gibt es autoit3 für den poket pc.. ich habe den airbord 4000
wenn ja könntet ihr mir den link zum download posten..?
thx -
danke habe die hilfe die ganze zeit jetzt durchsucht.. und kahm och zu dem kleinen fehler das ich den #include vergessen habe.. scheiße.. bin ich so was von fertig.. heute..^^
-
ok habe es so geschreiben ..
hier..
Spoiler anzeigen
[autoit]Sleep(2000)
[/autoit] [autoit][/autoit] [autoit]$text = FileRead ("test.txt")
[/autoit]
$aFound = StringRegExp($text, '\?uid=\w+-\d+">(?s)(.*?)</a><br>', 3)
Sleep (2000)
_ArrayDisplay($aFound)
Sleep (1000)
_FileWriteFromArray ("gefunden.txt", $aFound)und der fehler kommt..
Spoiler anzeigen
CodeC:\Dokumente und Einstellungen\Administrator\Desktop\spambot für kneipe.au3(58,45) : ERROR: _FileWriteFromArray(): undefined function. _FileWriteFromArray ("gefunden.txt", $aFound) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Dokumente und Einstellungen\Administrator\Desktop\spambot für kneipe.au3 - 1 error(s), 0 warning(s)
-
habe es gelöst.. thx sagte ja bekomme gerade nix in meinen kopf rein...
aber trotzdem konnte ich es schaffen..so nun problem 1 gelöst..
nun problem 2 .. aber wie schaffe ich es das die araydispaly in eine txt eingetragen werden .. alles untereinander..?EDIT::: sry war zusangsam .. thx euch beiden
er schreibt aber nix in die datei..!
so weit bin ich..
[autoit]Sleep(2000)
[/autoit][autoit][/autoit][autoit]$text = FileRead ("test.txt")
[/autoit]
$aFound = StringRegExp($text, '\?uid=\w+-\d+">(?s)(.*?)</a><br>', 3)
Sleep (2000)
_ArrayDisplay($aFound)
Sleep (1000)
FileWrite("gefunden.txt", $aFound) -
ne glaube ihr versteht mich noch nicht ganz.. vieleicht reden wir an einander vorbei kann ja passieren..
ich habe eine txt datei.. (test.txt)
und in der steht das alles und noch mehr und die datei ändert sich immer..auch das was dazwichen steht..also sollte der ablauf so gehen..
1) datei öffnen..
2) alles auslesen in der datei wo dieser string ist also mit dem anfang und dem ende.
3) das was er dazwichen ausgelesen hat in eine txt datei eintragen. -
bin gerade voll neben der spur bekomme gerade nix in meinen scheiß besch.. schädel rein..
also ok versuch es so..
in einer zeile der txt stehen mehrere strings.. mit dem anfang und dem ende .. bloß das in der mitte ändert sich..
und das geht ein paar zeilen so weiter..will bloß das er die datei >test.txt< öffnet bzw ausliest die im gleichen ordner ist wo das script ist..
also alles was ich schon beschreiben habe .. mit anfang und ende..was er dazwichen auslesen sollhier ein auszug aus der txt..
hier farbisch was anfang ist ( rot) und was ende ist ( blau) und das dazwichen barauche ich immer.und soll in eine txt untereinander eingetragen werden.. das ist aber nur ein auszug.. aus der txt datei..Spoiler anzeigen
<anp.php?uid=m-1254843856">miley</a><br><a onmouseover='showthumb("2009/43/4989944")' onmouseout=hidethumb(); np.php?uid=j-1240752026">juliia</a><br><a onmouseover='showthumb("2009/43/4989354")' onmouseout=hidethumb(); np.php?uid=l-1249386299">lilprincess</a><br><a onmouseover='showthumb("2009/32/4526694")' onmouseout=hidethumb(); /np.php?uid=s-1183828135">saxmy</a><br><a onmouseover='showthumb("2009/41/4906464")' onmouseout=hidethumb(); href="np.php?uid=s-1255176579">yteymma</a><br><a onmouseover='showthumb("2009/44/5010114")' onmouseout=hidethumb(); href="php?uid=l-1183819548"> llvirl</a><br>
-
ich behersche stringbetween nicht..
deshalb habe ich immer wieder alles was ich hatte verworfen..brauche ja nur mal ein paar beispiele..
habe bis jetzt nur das was er immer ausliest und in eine txt einträgt .. also die rohfassung.. und noch nicht das was er dann in eine neue txt eintragen soll.. -
bin wirklich verzweifelt.. ich brauche unterstützung um aus einer datei mehrere strings auszulesen..
und die in eine neue datei rein zu schreiben..also es soll so funktionieren das prog liest eine txt aus. das was hier dazwichen steht..
das ist der anfang.: uid=m-1254843856">das steht dazwichen kann sich aber ändern bzw ändert sich.: hallowelt
das daß ende des strings.: </a><br>
es sind aber mehrere die er auslesen soll. und dann in eine txt eintragen soll wer kann mir da helfen..
bitte bin am verzweifeln weil ich schon ein paar stunden dahinter klemme und jetzt ne denk blokade drinne haben bitte um hilfe..
-
ich meine weil ich doch nur den button drücken wollte der das( spiel ) startet.. mehr wollte und will ich nicht..bitte hat sich einer erbarmen mit mir und gibt nir nen tip..
-
aber kann man da nicht in irgend einer form was machen ..?? aushebeln.. geht ja nur um den einen button der geklickt werden will mehr wollte ich nicht wissen ..
-
ok freunde des wissens...
ich habe ein problem ich bekomme einen button nicht gedrückt...!!
stimmt der befehl auch ControlClick( "METIN II", "", "1017","left","2")das spuckt die hilfe aus:
Spoiler anzeigen
Code
Alles anzeigen>>>> Window <<<< Title: METIN II Class: #32770 Position: 212, 172 Size: 600, 400 Style: 0x94000AC4 ExStyle: 0x00010101 Handle: 0x004B0202 >>>> Control <<<< Class: Button Instance: 1 ClassnameNN: Button1 Advanced (Class): [CLASS:Button; INSTANCE:1] ID: 1017 Text: StartGame Position: 466, 46 Size: 123, 37 ControlClick Coords: 50, 20 Style: 0x5001000B ExStyle: 0x00000004 Handle: 0x0020023C >>>> Mouse <<<< Position: 731, 241 Cursor ID: 0 Color: 0xC1C0B3 >>>> StatusBar <<<< >>>> Visible Text <<<< StartGame Settings IDPwd NewAccount Quit >>>> Hidden Text <<<<