Beiträge von micha1621

micha1621

muss irgend ein passwort eingeben..!!

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.
;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

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;EIN HERSTELLERFELD MUSS NOCH ERSTELLT WERDEN
Opt("GUIOnEventMode", 0)
#NoTrayIcon
#include <GuiListView.au3>
#include <GUIConstants.au3>
#include "SQLite.au3"

[/autoit] [autoit][/autoit] [autoit]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#include <GUIListBox.au3>
#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")

[/autoit] [autoit][/autoit] [autoit]

If FileExists($COMBOaktuel) Then
MsgBox(4096, "Datei C:\autoexec.bat", "Existiert")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Else
For $i = 1 To $COMBOaktuel[0]
GUICtrlSetData ($Combo3 , $COMBOaktuel[$i])
GUISetState (-1)
Next
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_DATENiniPRUEFEN()
_warenSCHREIBEN()
_INPUTauslesen()
Case $Button2
ExitLoop

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _DATENiniPRUEFEN()
$SEKTION = GUICtrlRead($Input1)
$variable1 = IniReadSection(@ScriptDir & "\index", $SEKTION)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If @error Then
MsgBox(4096, "Achtung", "keine Ini Datei vorhanden, oder kein Eintrg gefunden")

[/autoit] [autoit][/autoit] [autoit]

Else
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
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/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()
$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)

[/autoit] [autoit][/autoit] [autoit]

If $LESEausINI < 0 Then
MsgBox(1,"","bereits vorhanden")
ElseIf $LESEausINI > 0 Then
MsgBox(48,"Daten erstellt","Ihr Eintrag wurde erfolgreich erstellt.")

[/autoit] [autoit][/autoit] [autoit]

EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc
;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()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$leseCOMBO1 = GUICtrlRead($Combo1)
$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)

[/autoit] [autoit][/autoit] [autoit]

$var = IniReadSectionNames(@ScriptDir & "\index.ini")

[/autoit] [autoit][/autoit] [autoit]

If @error Then
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,"")
Next

[/autoit] [autoit][/autoit] [autoit]

EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; MYSQL starten, DLL im PATH (enthält auch @ScriptDir), sont Pfad zur DLL angeben. DLL muss libmysql.dll heißen.
_MySQL_InitLibrary()
If @error Then Exit MsgBox(0, '', "")
MsgBox(0, "DLL Version:",_MySQL_Get_Client_Version()&@CRLF& _MySQL_Get_Client_Info())

[/autoit] [autoit][/autoit] [autoit]

$MysqlConn = _MySQL_Init()

[/autoit] [autoit][/autoit] [autoit]

;Fehler Demo:
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

[/autoit] [autoit][/autoit] [autoit]

; XAMPP micha1621
MsgBox(0, "XAMPP-Micha1621-demo", "XAMPP-micha1621-demo")

[/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))

[/autoit] [autoit][/autoit] [autoit]

$query = "SELECT * FROM `kontakt-daten`"
_MySQL_Real_Query($MysqlConn, $query)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$res = _MySQL_Store_Result($MysqlConn)

[/autoit] [autoit][/autoit] [autoit]

$fields = _MySQL_Num_Fields($res)

[/autoit] [autoit][/autoit] [autoit]

$rows = _MySQL_Num_Rows($res)
MsgBox(0, "", $rows & "-" & $fields)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

MsgBox(0, '', "Zugriff Methode 3 - alles in ein 2D Array")
$array = _MySQL_Fetch_Result_StringArray($res)
_ArrayDisplay($array)
$array[0] = $array[0]
For $i = $i +1
MsgBox(0,"",$array[$i])

[/autoit] [autoit][/autoit] [autoit]

; Abfrage freigeben
_MySQL_Free_Result($res)

[/autoit] [autoit][/autoit] [autoit]

; Verbindung beenden
_MySQL_Close($MysqlConn)
; MYSQL beenden
_MySQL_EndLibrary()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

hier meine datenbank

Spoiler anzeigen

SQL

-- 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 */;

Alles anzeigen

Habe schon einen lösungsansatz..
aber bekomme kein nix ausgelesen.

Spoiler anzeigen

[autoit]

;EIN HERSTELLERFELD MUSS NOCH ERSTELLT WERDEN
Opt("GUIOnEventMode", 0)
#NoTrayIcon
#include <GuiListView.au3>
#include <GUIConstants.au3>
#include "SQLite.au3"

[/autoit] [autoit][/autoit] [autoit]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#include <GUIListBox.au3>
#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")

[/autoit] [autoit][/autoit] [autoit]

If FileExists($COMBOaktuel) Then
MsgBox(4096, "Datei C:\autoexec.bat", "Existiert")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Else
For $i = 1 To $COMBOaktuel[0]
GUICtrlSetData ($Combo3 , $COMBOaktuel[$i])
GUISetState (-1)
Next
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1

[/autoit] [autoit][/autoit] [autoit]

Case $Button2
ExitLoop

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_MySQL_InitLibrary()
If @error Then Exit MsgBox(0, 'Error', "Failed to load libmysql.dll!")

[/autoit] [autoit][/autoit] [autoit]

$MysqlConn = _MySQL_Init()
$connected = _MySQL_Real_Connect($MysqlConn, "127.0.0.1", "root", "", "micha1621")
If $connected = 0 Then Exit MsgBox(16, 'Connection Error', _MySQL_Error($MysqlConn))

[/autoit] [autoit][/autoit] [autoit]

$Produkt = GUICtrlRead ($Combo3)
$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)

[/autoit] [autoit][/autoit] [autoit]

MsgBox (0, "Produkt", $Produkt & " has " & $aFirstRow[0] & " Daten.")

[/autoit]

micha1621

[autoit]

#include <ButtonConstants.au3>
#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 ###

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_login()

[/autoit][autoit][/autoit][autoit]

EndSwitch
WEnd

[/autoit][autoit][/autoit][autoit]

Func _login()

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

$Names = GUICtrlRead ($Input1)
$Orts = GUICtrlRead ($Input2)

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

$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")
_IEFormElementSetValue($Usernames2, $Names)

[/autoit][autoit][/autoit][autoit]

$Passworts= _IEFormElementGetObjByName($Forms, "passwrd")
_IEFormElementSetValue($Passworts, $Orts)

[/autoit][autoit][/autoit][autoit]

$oSubmit = _IEGetObjByName ($IEs, "login")
_IEAction ($oSubmit, "click")

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

EndFunc

[/autoit]

micha1621

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

>"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

Alles anzeigen

micha1621

airbord 4000

micha1621

hmmm schon hast schon recht aber andere sachen kann er dafür ..
und internet kann er und gps und co.. war ja ne frage..

micha1621

ich finde ja nix deswegen frage ich ja. und kenne mich auch mit pda´s nicht so aus.. habe seit gesern einen..

micha1621

und gibt es so was wie autoit ..?

micha1621

oder gibt es so was wie autoit für den pda.?

micha1621

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

micha1621

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..^^

micha1621

ok habe es so geschreiben ..

hier..

Spoiler anzeigen

[autoit]

Sleep(2000)

[/autoit] [autoit][/autoit] [autoit]

$text = FileRead ("test.txt")
$aFound = StringRegExp($text, '\?uid=\w+-\d+">(?s)(.*?)</a> ', 3)
Sleep (2000)
_ArrayDisplay($aFound)
Sleep (1000)
_FileWriteFromArray ("gefunden.txt", $aFound)

[/autoit]

und der fehler kommt..

Spoiler anzeigen

Code

C:\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)

micha1621

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")
$aFound = StringRegExp($text, '\?uid=\w+-\d+">(?s)(.*?)</a> ', 3)
Sleep (2000)
_ArrayDisplay($aFound)
Sleep (1000)
FileWrite("gefunden.txt", $aFound)

[/autoit]

micha1621

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.

micha1621

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 soll

hier 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> <a onmouseover='showthumb("2009/43/4989944")' onmouseout=hidethumb(); np.php?uid=j-1240752026">juliia</a> <a onmouseover='showthumb("2009/43/4989354")' onmouseout=hidethumb(); np.php?uid=l-1249386299">lilprincess</a> <a onmouseover='showthumb("2009/32/4526694")' onmouseout=hidethumb(); /np.php?uid=s-1183828135">saxmy</a> <a onmouseover='showthumb("2009/41/4906464")' onmouseout=hidethumb(); href="np.php?uid=s-1255176579">yteymma</a> <a onmouseover='showthumb("2009/44/5010114")' onmouseout=hidethumb(); href="php?uid=l-1183819548"> llvirl</a>

micha1621

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

micha1621

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>

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

micha1621

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

micha1621

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

micha1621

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

>>>> 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 <<<<

Alles anzeigen

Beiträge von micha1621

mit autoit und SQLite einträge in DB schreiben/auslesen

mit autoit und SQLite einträge in DB schreiben/auslesen

IE.au3

IE.au3

Autoit3 für poket pc

Autoit3 für poket pc

Autoit3 für poket pc

Autoit3 für poket pc

Autoit3 für poket pc

Autoit3 für poket pc

bis 30.10 habe ich zeit dafür hilfe bitte

bis 30.10 habe ich zeit dafür hilfe bitte

bis 30.10 habe ich zeit dafür hilfe bitte

bis 30.10 habe ich zeit dafür hilfe bitte

bis 30.10 habe ich zeit dafür hilfe bitte

bis 30.10 habe ich zeit dafür hilfe bitte

bis 30.10 habe ich zeit dafür hilfe bitte

was einfaches mit vielen problemen

was einfaches mit vielen problemen

was einfaches mit vielen problemen