Beiträge von Sirocool

Sirocool

wollen gerne mal wiessen ob es möglich ist wenn man den hintergrund nicht als bmp datei macht sondern als html datei ob er es dann auch speichert wenn wir das hausbauen und es auch da wieder gibt wenn man es beim spielstand laden drückt auch da wieder steht wo es gebaut wurde

ich mach mal eine neue version rein von The Destroyed City das ihr wiest was ich ungefähr erfragen will. Aber da diese neue Version noch nicht im umlauf gebracht werden soll habe ich alles was anbildern drinne sein soll rausgenohmmen und nur ein beispiel drinne gelassen ich bitte umverständnis diese wurde auch mit jam 00 so abgesprochen. Die The Destroyed City test version ist das was wir eigendlich vorhaben im spiel das der hintergrund nicht nur so klein ist aber schaut es euch mal an und sagt ob es gehen würde.

Die The Destroyed City test version = die The Destroyed City test.zip

The Destroyed City = Script.zip

Sirocool

Ihr ist die Deutsche Version von Au3GlPlugin

Sirocool

so werde mich mal hinsetzten und deine Hilfe umsetzen danke dir

Sirocool

mach ich oben mit rein oki

Sirocool

muss so bleiben wegen den login GUISetState(@SW_HIDE, $hGui1)

ihr ist noch eine version die vorherr war da geht es wieder

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: Sirocool
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
$Meldung = ""
; Script Start - Add your code below here

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

#include <GUIConstants.au3>
#include <GUIComboBox.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <Date.au3>
#include <GuiListView.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <File.au3>

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

#include "LogIn.au3"

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

#cs ----------------------------------------------------------------------------
Script Function: Ende
#ce ----------------------------------------------------------------------------
Dim $nCurCol = -1
Dim $nSortDir = 1
Dim $bSet = 0
Dim $nCol = -1
Dim $nr, $termindaten

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

#cs ----------------------------------------------------------------------------
Script Function: Software Version
#ce ----------------------------------------------------------------------------
Global $version = "_1.0"
Global $version01 = "_1.0"
Global $version02 = "_1.0"
#cs ----------------------------------------------------------------------------
Script Function: Password
#ce ----------------------------------------------------------------------------
$INI3Status = False
$INI3StatusAlt = True
$User = "Test|Test2|Test3|"
$Pass = "test|34|56|"

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

#cs ----------------------------------------------------------------------------
Script Function: INI Speicherungsort
#ce ----------------------------------------------------------------------------
Local $INI = @ScriptDir & "\data\Terminplanung.ini"

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

Global $aTerminplanung = IniReadSection($INI, "Terminplanung")
Global $Listview1,$Form1,$lb_Terminplanung
Local $lastNum = IniRead($INI, "Numbers", "last", 9999)

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

#cs ----------------------------------------------------------------------------
Script Function: zusatz $
#ce ----------------------------------------------------------------------------

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

$Label06_01 = ""
$Label07_01 = ""
$Label08_01 = ""
$Info = ""

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

#cs ----------------------------------------------------------------------------
Script Function: Fenster die geöffnet werden
#ce ----------------------------------------------------------------------------
#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Form\Callcenter\Login.kxf
$hGui = GUICreate("CallCenter_Login" & $version, 265, 168, 502, 319)
GUISetBkColor(0xFFFFFF)
$Login = GUICtrlCreateGroup("Login", 16, 8, 225, 105)
$Label1 = GUICtrlCreateLabel("Name", 24, 32, 32, 17)
$Label2 = GUICtrlCreateLabel("Password", 24, 72, 50, 17)
$UserIN = GUICtrlCreateInput("", 96, 32, 121, 21)
$PassIN = GUICtrlCreateInput("", 96, 72, 121, 21,0x0020)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Okay = GUICtrlCreateButton("Okay", 16, 128, 75, 25, 0,"MS Sans Serif")
$Chancel = GUICtrlCreateButton("Chancel", 168, 128, 75, 25, 0,"MS Sans Serif")
GUISetState(@SW_SHOW,$hGui)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Programm\New\Form\Menü.kxf
$hGui1 = GUICreate("Menü" & $version01,918, 392, 609, 260)
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("", 8, 8, 897, 265)
$ListView1 = GUICtrlCreateListView("Nummer|Datum|Zeit|Firma|Anrede|Kundenname|Anschrift|NR|PZL|Ort|Vorwahl|Telefonnr|Bemerkungen|CCA|FN|Handy|NA|nOK|Grund Mobil & Festnetz|", 32, 32, 850, 222)
GUICtrlCreateGroup("", -99, -99, 1, 1)
; ### Anfang Kontextmenü
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_new = GUICtrlCreateMenuItem('Termin Eintragen', $mnu)
$mnu_edit = GUICtrlCreateMenuItem('Termin bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Termin Löschen', $mnu)
; ### Ende Kontextmenü
$Group2 = GUICtrlCreateGroup("", 672, 272, 233, 105)
;$Pic = GUICtrlCreateDate("2009/01/21 17:15:44", 696, 320, 186, 21)
;GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("", 8, 272, 657, 105)
$Button1 = GUICtrlCreateButton("Terminplanung", 40, 296, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Button2", 40, 336, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Button3", 136, 296, 75, 25, 0)
$Button4 = GUICtrlCreateButton("Button4", 136, 336, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Button5", 232, 296, 75, 25, 0)
$Button6 = GUICtrlCreateButton("Button6", 232, 336, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Button7", 336, 296, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Button8", 336, 336, 75, 25, 0)
$Button9 = GUICtrlCreateButton("Button9", 440, 296, 75, 25, 0)
$Button10 = GUICtrlCreateButton("Button10", 440, 336, 75, 25, 0)
$Button11 = GUICtrlCreateButton("Button11", 552, 296, 75, 25, 0)
$Button12 = GUICtrlCreateButton("Button12", 552, 336, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Programm\New\Form\Terminplanung.kxf
$hgui2 = GUICreate("Terminplanung" & $version02, 951, 505, 468, 310)
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("", 16, 16, 913, 105)
$Label01 = GUICtrlCreateLabel("Datum", 40, 40, 35, 17)
$dd_datum = GUICtrlCreateDate("2009/01/22 12:30:15", 80, 40, 186, 21,$WS_TABSTOP)
$Label02 = GUICtrlCreateLabel("Uhrzeiten", 288, 40, 49, 17)
$Input14 = GUICtrlCreateInput("", 344, 40, 121, 21)
$Label03 = GUICtrlCreateLabel("Firmenname", 512, 40, 61, 17)
$Input1 = GUICtrlCreateInput("", 576, 40, 121, 21)
$Label04 = GUICtrlCreateLabel("Anrede", 720, 40, 38, 17)
$Input15 = GUICtrlCreateInput("", 760, 40, 121, 21)
$Label05 = GUICtrlCreateLabel("Name", 40, 80, 32, 17)
$Input2 = GUICtrlCreateInput("", 72, 80, 121, 21)
$Label06 = GUICtrlCreateLabel("Anschrift", 216, 80, 45, 17)
$Input3 = GUICtrlCreateInput("", 264, 80, 121, 21)
$Input4 = GUICtrlCreateInput("", 392, 80, 25, 21)
$Label07 = GUICtrlCreateLabel("PLZ / Ort", 440, 80, 49, 17)
$Input5 = GUICtrlCreateInput("", 496, 80, 41, 21)
$Input6 = GUICtrlCreateInput("", 544, 80, 121, 21)
$Label08 = GUICtrlCreateLabel("Telefonnr", 688, 80, 49, 17)
$Input7 = GUICtrlCreateInput("", 744, 80, 41, 21)
$Input8 = GUICtrlCreateInput("", 792, 80, 113, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("", 16, 128, 913, 137)
$Label09 = GUICtrlCreateLabel("Bemerkungen", 24, 152, 70, 17)
$Edit1 = GUICtrlCreateEdit("", 96, 152, 809, 89)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("", 16, 272, 913, 65)
$Label10 = GUICtrlCreateLabel("CCA", 40, 296, 25, 17)
$Input9 = GUICtrlCreateInput("", 72, 296, 121, 21)
$Label11 = GUICtrlCreateLabel("FN", 216, 296, 18, 17)
$Input10 = GUICtrlCreateInput("", 240, 296, 121, 21)
$Label12 = GUICtrlCreateLabel("Handy", 384, 296, 35, 17)
$Input11 = GUICtrlCreateInput("", 424, 296, 121, 21)
$Label13 = GUICtrlCreateLabel("NA", 576, 296, 19, 17)
$Input12 = GUICtrlCreateInput("", 600, 296, 121, 21)
$Label14 = GUICtrlCreateLabel("nOK", 752, 296, 25, 17)
$Input13 = GUICtrlCreateInput("", 784, 296, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("", 16, 344, 361, 137)
$Label15 = GUICtrlCreateLabel("Grund Mobil und Festnetz", 40, 368, 125, 17)
$Edit2 = GUICtrlCreateEdit("", 168, 368, 185, 89)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("", 384, 344, 233, 137)
$Speichern = GUICtrlCreateButton("Speichern", 408, 360, 75, 25, 0)
$Drucken = GUICtrlCreateButton("Drucken", 520, 360, 75, 25, 0)
$Loschen = GUICtrlCreateButton("Löschen", 408, 400, 75, 25, 0)
$Button400 = GUICtrlCreateButton("Button4", 520, 400, 75, 25, 0)
$Button500 = GUICtrlCreateButton("Button5", 408, 440, 75, 25, 0)
$Button600 = GUICtrlCreateButton("Button6", 520, 440, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("", 624, 344, 305, 137)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

_FillListView()
GUISetState(@SW_HIDE, $hGui1)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

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

While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle#
Case $hGui
Switch $msg[0] ; Event
Case $Okay ;und von hier
$Meldung = False
if _LogIn($UserIN,$PassIN,$User,$Pass,$hGui1,"Zeigen") = True then GUISetState(@SW_HIDE, $hGui)
Case $Chancel
GUICtrlSetData($UserIN, "")
GUICtrlSetData($PassIN, "")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Case $hGui1
Switch $msg[0]
Case $Button1
GUISetState(@SW_SHOW, $hGui2)
Case $mnu_new
GUISetState(@SW_SHOW, $hGui2)
Case $mnu_del
; Eintrag aus INI löschen:
$index = _GUICtrlListView_GetSelectedIndices($Listview1)
$del_Key = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 0)
IniDelete($INI, "Terminplanung", $del_key)
; Array mit Patienten-Daten neu einlesen
$aTerminplanung = IniReadSection($INI, "Terminplanung")
; entfernt Eintrag aus Liste:
_GUICtrlListView_DeleteItemsSelected($Listview1)
Case $mnu_edit

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

Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)
EndSwitch
Case $hGui2
Switch $msg[0]
Case $Speichern
If Not FileExists ( @ScriptDir & "\data\*.*") Then DirCreate (@ScriptDir & "\data")
$lastNum += 1
$Label01 = GUICtrlRead($dd_datum )
$Label02 = GUICtrlRead($Input14)
$Label03 = GUICtrlRead($Input1)
$Label04 = GUICtrlRead($Input15)
$Label05 = GUICtrlRead($Input2)
$Label06 = GUICtrlRead($Input3)
$Label06_01 = GUICtrlRead($Input4)
$label07 = GUICtrlRead($Input5)
$label07_01 = GUICtrlRead($Input6)
$Label08 = GUICtrlRead($Input7)
$Label08_01 = GUICtrlRead($Input8)
$Label09 = GUICtrlRead($Edit1)
$Label10 = GUICtrlRead($Input9)
$Label11 = GUICtrlRead($Input10)
$Label12 = GUICtrlRead($Input11)
$Label13 = GUICtrlRead($Input12)
$Label14 = GUICtrlRead($Input13)
$Label15 = GUICtrlRead($Edit2)
IniWrite($INI, "Numbers", "last", $lastNum)
IniWrite($INI, "Terminplanung", $lastNum, $Label01 & '|' & $Label02 & '|' & $Label03 & '|' & $Label04 & '|' & $Label05 & '|' & $Label06 & '|' & $Label06_01 & '|' & $Label07 & '|' & $Label07_01 & '|' & $Label08 & '|' & $Label08_01 & '|' & $Label09 & '|' & $Label10 & '|' & $Label11 & '|' & $Label12 & '|' & $Label13 & '|' & $Label14 & '|' & $Label15)
GUICtrlSetData($dd_datum , "")
GUICtrlSetData($Input14, "")
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input15, "")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "")
GUICtrlSetData($Input4, "")
GUICtrlSetData($Input5,"")
GUICtrlSetData($Input6, "")
GUICtrlSetData($Input7, "")
GUICtrlSetData($Input8,"")
GUICtrlSetData($Edit1,"")
GUICtrlSetData($Input9,"")
GUICtrlSetData($Input10,"")
GUICtrlSetData($Input11,"")
GUICtrlSetData($Input12,"")
GUICtrlSetData($Input13,"")
GUICtrlSetData($Edit2,"")
; Ihr werden mit Array Terminplanungs-Daten neu einlesen
$aTerminplanung = IniReadSection($INI, "Terminplanung")
_FillListView()
Case $Loschen
GUICtrlSetData($Input14, "")
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input15, "")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "")
GUICtrlSetData($Input4, "")
GUICtrlSetData($Input5, "")
GUICtrlSetData($Input6, "")
GUICtrlSetData($Input7, "")
GUICtrlSetData($Input8, "")
GUICtrlSetData($Edit1, "")
GUICtrlSetData($Input9, "")
GUICtrlSetData($Input10, "")
GUICtrlSetData($Input11, "")
GUICtrlSetData($Input12, "")
GUICtrlSetData($Input13, "")
GUICtrlSetData($Edit2, "")
Case $Drucken
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui2)
EndSwitch

EndSwitch
WEnd

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

#cs ------------------
Diese funktion ist schon für fenster 2 mit
#ce -------------------
Func _FillListView()
_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 9999 Then Return
For $i = 1 To UBound($aTerminplanung) -1
GUICtrlCreateListViewItem($aTerminplanung[$i][0] & '|' & $aTerminplanung[$i][1], $Listview1)
Next
EndFunc
Func _LeftDblClick($info) ; Inhalt der angeklickten Zeile (alle Spalten) wird in GUI gezeigt
GUICtrlSetData($dd_datum , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 1))
GUICtrlSetData($Input14, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 2))
GUICtrlSetData($Input1 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 3))
GUICtrlSetData($Input15 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 4))
GUICtrlSetData($Input2 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 5))
GUICtrlSetData($Input3 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 6))
GUICtrlSetData($Input4 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 7))
GUICtrlSetData($Input5, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 8))
GUICtrlSetData($Input6 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 9))
GUICtrlSetData($Input7 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 10))
GUICtrlSetData($Input8 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 11))
GUICtrlSetData($Edit1 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 12))
GUICtrlSetData($Input9 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 13))
GUICtrlSetData($Input10 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 14))
GUICtrlSetData($Input11 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 15))
GUICtrlSetData($Input12 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 16))
GUICtrlSetData($Input13 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 17))
GUICtrlSetData($Edit2 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 18))
GUISetState(@SW_SHOW, $hGui2)
EndFunc

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

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

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

$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
_LeftDblClick($aInfo)
Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
Return $GUI_RUNDEFMSG ; allow the default processing
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

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

Sirocool

ich habe einproblem mit listenwiev vorher in der version gingen die drei fenster zum anzeigen aber jetzt zeigt er nichts mehr an brauche mal hilfe bitte

alte version

Spoiler anzeigen

[autoit]

;##########################################
#include <GUIConstants.au3>
;##########################################
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
;###########################################
Dim $ver = "0.0.0"
;###########################################
Local $INI = @ScriptDir & "\CallCenter.ini"
Local $INI1 = @ScriptDir & "\Außendienst.ini"
Local $INI2 = @ScriptDir & "\Kundendienst.ini"
;###########################################

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

If Not FileExists($INI) Then
IniWrite($INI, "CallCenter", 10002, "Mustermann|0172/1060341|Mustermann@hotmail.com")
IniWrite($INI, "Numbers", "last", 10002)
EndIf
If Not FileExists($INI1) Then
IniWrite($INI1, "Kundendienst", 10002, "Mustermann|0172/1060341|Mustermann@hotmail.com")
IniWrite($INI1, "Numbers", "last", 10002)
EndIf
If Not FileExists($INI2) Then
IniWrite($INI2, "Innendienst", 10002, "Mustermann|0172/1060341|32|Musterstrasse|12|Mustermann@hotmail.com")
IniWrite($INI2, "Numbers", "last", 10002)
EndIf

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

Global $aCallcenter = IniReadSection($INI, "CallCenter")
Global $Listview1,$Form1_1,$lb_Callcenter
Local $lastNum = IniRead($INI, "Numbers", "last", 9999)

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

Global $aKundendienst = IniReadSection($INI1, "Kundendienst")
Global $Listview2,$Form1_1,$lb_Kundendienst
Local $lastNum1 = IniRead($INI1, "Numbers", "last", 9999)

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

Global $aInnendienst = IniReadSection($INI2, "Innendienst")
Global $Listview3,$Form1_1,$lb_Innendienst
Local $lastNum2 = IniRead($INI2, "Numbers", "last", 9999)

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

#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Form\form1.kxf
$Form1_1 = GUICreate("CDN Service Agentur", 837, 412, 187, 207)
GUISetBkColor(0xFFFFFF)
$Group2 = GUICtrlCreateGroup("Aussendienst", 336, 16, 300, 200)
$Button4 = GUICtrlCreateButton("Button4", 448, 176, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Button5", 352, 176, 75, 25, 0)
$Button6 = GUICtrlCreateButton("Button6", 544, 176, 75, 25, 0)
$ListView2 = GUICtrlCreateListView("Nummer|Name|Telefonnummer|Email|", 344, 40, 282, 118)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$mnu = GUICtrlCreateContextMenu($Listview2)
$mnu_new = GUICtrlCreateMenuItem('Mitarbeiter Eintragen', $mnu)
$mnu_edit = GUICtrlCreateMenuItem('Mitarbeiter bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Mitarbeiter Löschen', $mnu)
; ### Ende Kontextmenü
$Group3 = GUICtrlCreateGroup("Innendienst", 16, 224, 623, 150)
$ListView3 = GUICtrlCreateListView("Nummer|Name|Telefonnummer|Alter|Straße|Nr|Email|", 25, 247, 602, 118)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$mnu = GUICtrlCreateContextMenu($Listview3)
$mnu_new = GUICtrlCreateMenuItem('Mitarbeiter Eintragen', $mnu)
$mnu_edit = GUICtrlCreateMenuItem('Mitarbeiter bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Mitarbeiter Löschen', $mnu)
; ### Ende Kontextmenü
$Group1 = GUICtrlCreateGroup("Call Center", 16, 16, 300, 200)
$Button1 = GUICtrlCreateButton("Button1", 32, 176, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Button2", 128, 176, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Button3", 224, 176, 75, 25, 0)
$ListView1 = GUICtrlCreateListView("Nummer|Name|Telefonnummer|Email|", 24, 40, 282, 118)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_new = GUICtrlCreateMenuItem('Mitarbeiter Eintragen', $mnu)
$mnu_edit = GUICtrlCreateMenuItem('Mitarbeiter bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Mitarbeiter Löschen', $mnu)
; ### Ende Kontextmenü
$Date1 = GUICtrlCreateDate("2009/01/10 13:18:36", 640, 24, 186, 21)
$Group4 = GUICtrlCreateGroup("Login", 648, 224, 177, 150)
$Input1 = GUICtrlCreateInput("", 712, 256, 105, 21)
$Input2 = GUICtrlCreateInput("", 712, 296, 105, 21)
$Name = GUICtrlCreateLabel("Name", 656, 256, 32, 17)
$Password = GUICtrlCreateLabel("Password", 656, 296, 50, 17)
$Ok = GUICtrlCreateButton("Ok", 656, 336, 67, 25, 0)
$Channel = GUICtrlCreateButton("Channel", 736, 336, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic=GUICtrlCreatePic("C:\Programme\Devil Browser\images\toolbar\thema\bg-1.bmp",500, 48, 705, 168, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
$MenuItem1 = GUICtrlCreateMenu("&MenuItem1")
$MenuItem5 = GUICtrlCreateMenuItem("MenuItem5", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("M&enuItem2")
$MenuItem3 = GUICtrlCreateMenu("Me&nuItem3")
$MenuItem4 = GUICtrlCreateMenu("Men&uItem4")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_FillListView()
GUISetState(@SW_SHOW, $Form1_1)

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

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

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

Func _FillListView()
_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 9999 Then Return
For $i = 1 To UBound($aCallcenter) -1
GUICtrlCreateListViewItem($aCallcenter[$i][0] & '|' & $aCallcenter[$i][1], $Listview1)
Next
If $lastNum1 = 9999 Then Return
For $i = 1 To UBound($aKundendienst) -1
GUICtrlCreateListViewItem($aKundendienst[$i][0] & '|' & $aKundendienst[$i][1], $Listview2)
Next
If $lastNum2 = 9999 Then Return
For $i = 1 To UBound($aInnendienst) -1
GUICtrlCreateListViewItem($aInnendienst[$i][0] & '|' & $aInnendienst[$i][1], $Listview3)
Next
EndFunc

[/autoit]

Neue Version

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------
$Meldung=""
; Script Start - Add your code below here

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

#include <GUIConstants.au3>
#include <GUIComboBox.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <Date.au3>
#include <GuiListView.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
#include <StaticConstants.au3>
#include <SQLite.dll.au3>
#include "LogIn.au3"
#cs ----------------------------------------------
CDN Service Agentur
#ce ---------------------------------------------
If FileExists("") Then
Else
DirCreate("C:\Programme\CDN Service Agentur\Icon\")
FileInstall("Icon\Login.bmp","C:\Programme\CDN Service Agentur\Icon\Login.bmp")
FileInstall("Icon\Login.ico","C:\Programme\CDN Service Agentur\Icon\Login.ico")
EndIf

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

#cs ----------------------------------------------------------------------------
Script Function: Ende
#ce ----------------------------------------------------------------------------
Dim $nCurCol = -1
Dim $nSortDir = 1
Dim $bSet = 0
Dim $nCol = -1
Dim $nr, $termindaten

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

#cs ----------------------------------------------------------------------------
Script Function: Software Version
#ce ----------------------------------------------------------------------------
Global $version = "_Version_1.5.0"
Global $version01 = "_Version_1.5.0"
Global $version02 = "_Version_1.0.0"
#cs ----------------------------------------------------------------------------
Script Function: Password
#ce ----------------------------------------------------------------------------
$INI3Status = False
$INI3StatusAlt = True
$User = "Admin|Test|Test3|"
$Pass = "Admin|test|test3|"

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

#cs ----------------------------------------------------------------------------
Script Function: INI Speicherungsort
#ce ----------------------------------------------------------------------------
Local $INI = @ScriptDir & "\data\TermineTelefon.ini"
Local $INI_1 = @ScriptDir & "\data\TermineHotel.ini"

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

Global $aTermineTelefon = IniReadSection($INI, "TermineTelefon")
Global $Listview1,$hGui1,$lb_TermineTelefon
Local $lastNum = IniRead($INI, "Numbers", "last", 9999)

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

Global $aTermineHotel = IniReadSection($INI_1, "TermineHotel")
Global $Listview2,$hGui1,$lb_TermineHotel
Local $lastNum_ = IniRead($INI_1, "Numbers", "last", 9999)

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

#cs ----------------------------------------------------------------------------
Script Function: Fenster die geöffnet werden
#ce ----------------------------------------------------------------------------
#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Form\Callcenter\Login.kxf
$hGui = GUICreate("CallCenter_Login" & $version, 400, 168, 502, 319)
GUISetIcon("C:\Programme\CDN Service Agentur\Icon\Login.ico")
GUISetBkColor(0xFFFFFF)
$bg1=GUICtrlCreatePic("C:\Programme\CDN Service Agentur\Icon\Login.bmp",260, 15, 128, 128, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Login = GUICtrlCreateGroup("", 16, 8, 225, 105)
$Label1 = GUICtrlCreateLabel("Name", 24, 32, 32, 17)
$Label2 = GUICtrlCreateLabel("Password", 24, 72, 50, 17)
$UserIN = GUICtrlCreateInput("test", 96, 32, 121, 21)
$PassIN = GUICtrlCreateInput("test", 96, 72, 121, 21,0x0020)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Okay = GUICtrlCreateButton("Okay", 25, 128, 75, 25, 0,"MS Sans Serif")
$Chancel = GUICtrlCreateButton("Chancel", 153, 128, 75, 25, 0,"MS Sans Serif")
GUISetState(@SW_SHOW,$hGui)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Form\Callcenter\Menü.kxf
$hGui1 = GUICreate("Menü"& $version01, 1177, 435, 190, 248)
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("", 8, 8, 1162, 297)
$ListView1 = GUICtrlCreateListView("Nummer|Datum|Zeit|Firma|Kundenname|Anschrift|Vorwahl|Telefonnummer|Bemerkungen|CCA|FN|Hand|MA|nOK|Grund Mobil & Festnetz|", 32, 32, 550, 250)
; ### Anfang Kontextmenü
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_new = GUICtrlCreateMenuItem('Termin Eintragen', $mnu)
$mnu_edit = GUICtrlCreateMenuItem('Termin bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Termin Löschen', $mnu)
; ### Ende Kontextmenü
$ListView2 = GUICtrlCreateListView("Nummer|Datum|Zeit|Hotelname|Kundenname|Anschrift|Vorwahl|Telefonnummer|Bemerkungen|CCA|FN|Hand|NA|nOK|Grund Mobil & Festnetz|", 600, 32, 550, 250)
; ### Anfang Kontextmenü
$mnu_1 = GUICtrlCreateContextMenu($Listview2)
$mnu_new = GUICtrlCreateMenuItem('Termin Eintragen', $mnu_1)
$mnu_edit = GUICtrlCreateMenuItem('Termin bearbeiten', $mnu_1)
$mnu_del = GUICtrlCreateMenuItem('Termin Löschen', $mnu_1)
; ### Ende Kontextmenü
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("", 8, 312, 581, 105)
$Button1 = GUICtrlCreateButton("Button1", 32, 336, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Button2", 32, 376, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Button3", 128, 336, 75, 25, 0)
$Button4 = GUICtrlCreateButton("Button4", 128, 376, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Button5", 224, 336, 75, 25, 0)
$Button6 = GUICtrlCreateButton("Button6", 224, 376, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Button7", 312, 336, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Button8", 312, 376, 75, 25, 0)
$Button9 = GUICtrlCreateButton("Button9", 408, 336, 75, 25, 0)
$Button10 = GUICtrlCreateButton("Button10", 408, 376, 75, 25, 0)
$Button11 = GUICtrlCreateButton("Button11", 496, 336, 75, 25, 0)
$Button12 = GUICtrlCreateButton("Button12", 496, 376, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("", 592, 312, 581, 105)
$Combo1 = GUICtrlCreateCombo("Auswahl", 616, 336, 81, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Nummer|Datum|Zeit|Firma|Kundenname|Anschrift")
$Input1000 = GUICtrlCreateInput("Input1", 696, 336, 121, 21)
$btsearch= GUICtrlCreateButton("Suchen", 624, 376, 75, 25, 0)
$ListView3 = GUICtrlCreateListView("", 832, 336, 322, 70)
$btview = GUICtrlCreateButton("alle Zeigen", 728, 376, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Programm\New\Form\Terminplanung.kxf
$hGui2 = GUICreate("Terminplanung" & $version02, 951, 505, 468, 310)
GUISetBkColor(0xFFFFFF)
$Group4 = GUICtrlCreateGroup("", 16, 16, 913, 105)
$Label01 = GUICtrlCreateLabel("Datum", 40, 40, 35, 17)
$dd_datum = GUICtrlCreateDate("2009/01/22 12:30:15", 80, 40, 186, 21,$WS_TABSTOP)
$Label02 = GUICtrlCreateLabel("Uhrzeiten", 288, 40, 49, 17)
$Input14 = GUICtrlCreateInput("", 344, 40, 121, 21)
$Label03 = GUICtrlCreateLabel("Firmenname", 512, 40, 61, 17)
$Input100 = GUICtrlCreateInput("", 576, 40, 121, 21)
$Label04 = GUICtrlCreateLabel("Anrede", 720, 40, 38, 17)
$Input15 = GUICtrlCreateInput("", 760, 40, 121, 21)
$Label05 = GUICtrlCreateLabel("Name", 40, 80, 32, 17)
$Input200 = GUICtrlCreateInput("", 72, 80, 121, 21)
$Label06 = GUICtrlCreateLabel("Anschrift", 216, 80, 45, 17)
$Input300 = GUICtrlCreateInput("", 264, 80, 121, 21)
$Input4 = GUICtrlCreateInput("", 392, 80, 25, 21)
$Label07 = GUICtrlCreateLabel("PLZ / Ort", 440, 80, 49, 17)
$Input5 = GUICtrlCreateInput("", 496, 80, 41, 21)
$Input6 = GUICtrlCreateInput("", 544, 80, 121, 21)
$Label08 = GUICtrlCreateLabel("Telefonnr", 688, 80, 49, 17)
$Input7 = GUICtrlCreateInput("", 744, 80, 41, 21)
$Input8 = GUICtrlCreateInput("", 792, 80, 113, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("", 16, 128, 913, 137)
$Label09 = GUICtrlCreateLabel("Bemerkungen", 24, 152, 70, 17)
$Edit1 = GUICtrlCreateEdit("", 96, 152, 809, 89)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("", 16, 272, 913, 65)
$Label10 = GUICtrlCreateLabel("CCA", 40, 296, 25, 17)
$Input9 = GUICtrlCreateInput("", 72, 296, 121, 21)
$Label11 = GUICtrlCreateLabel("FN", 216, 296, 18, 17)
$Input10 = GUICtrlCreateInput("", 240, 296, 121, 21)
$Label12 = GUICtrlCreateLabel("Handy", 384, 296, 35, 17)
$Input11 = GUICtrlCreateInput("", 424, 296, 121, 21)
$Label13 = GUICtrlCreateLabel("NA", 576, 296, 19, 17)
$Input12 = GUICtrlCreateInput("", 600, 296, 121, 21)
$Label14 = GUICtrlCreateLabel("nOK", 752, 296, 25, 17)
$Input13 = GUICtrlCreateInput("", 784, 296, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("", 16, 344, 361, 137)
$Label15 = GUICtrlCreateLabel("Grund Mobil und Festnetz", 40, 368, 125, 17)
$Edit2 = GUICtrlCreateEdit("", 168, 368, 185, 89)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("", 384, 344, 233, 137)
$Speichern = GUICtrlCreateButton("Speichern", 408, 360, 75, 25, 0)
$Drucken = GUICtrlCreateButton("Drucken", 520, 360, 75, 25, 0)
$Loschen = GUICtrlCreateButton("Löschen", 408, 400, 75, 25, 0)
$Button400 = GUICtrlCreateButton("Button4", 520, 400, 75, 25, 0)
$Button500 = GUICtrlCreateButton("Button5", 408, 440, 75, 25, 0)
$Button600 = GUICtrlCreateButton("Button6", 520, 440, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group9 = GUICtrlCreateGroup("", 624, 344, 305, 137)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

_FillListView()
GUISetState(@SW_HIDE, $hGui1)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

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

While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle#
Case $hGui
Switch $msg[0] ; Event
Case $Okay ;und von hier
$Meldung = False
if _LogIn($UserIN,$PassIN,$User,$Pass,$hGui1,"Zeigen") = True then GUISetState(@SW_HIDE, $hGui)
Case $Chancel
GUICtrlSetData($UserIN, "")
GUICtrlSetData($PassIN, "")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Case $hGui1
Switch $msg[0]
Case $Button1
GUISetState(@SW_SHOW, $hGui2)
Case $mnu_new
GUISetState(@SW_SHOW, $hGui2)
Case $mnu_del
$index = _GUICtrlListView_GetSelectedIndices($Listview1)
$del_Key = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 0)
IniDelete($INI, "TermineTelefon", $del_key)
$aTerminplanung = IniReadSection($INI, "TermineTelefon")
_GUICtrlListView_DeleteItemsSelected($Listview1)
Case $mnu_edit

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

Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)
EndSwitch
Case $hGui2
Switch $msg[0]
Case $Speichern
If Not FileExists ( @ScriptDir & "\data\*.*") Then DirCreate (@ScriptDir & "\data")
$lastNum += 1
$Label01 = GUICtrlRead($dd_datum )
$Label02 = GUICtrlRead($Input14)
$Label03 = GUICtrlRead($Input100)
$Label04 = GUICtrlRead($Input15)
$Label05 = GUICtrlRead($Input200)
$Label06 = GUICtrlRead($Input300)
$Label06_01 = GUICtrlRead($Input4)
$label07 = GUICtrlRead($Input5)
$label07_01 = GUICtrlRead($Input6)
$Label08 = GUICtrlRead($Input7)
$Label08_01 = GUICtrlRead($Input8)
$Label09 = GUICtrlRead($Edit1)
$Label10 = GUICtrlRead($Input9)
$Label11 = GUICtrlRead($Input10)
$Label12 = GUICtrlRead($Input11)
$Label13 = GUICtrlRead($Input12)
$Label14 = GUICtrlRead($Input13)
$Label15 = GUICtrlRead($Edit2)
IniWrite($INI, "Numbers", "last", $lastNum)
IniWrite($INI, "TermineTelefon", $lastNum, $Label01 & '|' & $Label02 & '|' & $Label03 & '|' & $Label04 & '|' & $Label05 & '|' & $Label06 & '|' & $Label06_01 & '|' & $Label07 & '|' & $Label07_01 & '|' & $Label08 & '|' & $Label08_01 & '|' & $Label09 & '|' & $Label10 & '|' & $Label11 & '|' & $Label12 & '|' & $Label13 & '|' & $Label14 & '|' & $Label15)
GUICtrlSetData($dd_datum , "")
GUICtrlSetData($Input14, "")
GUICtrlSetData($Input100, "")
GUICtrlSetData($Input15, "")
GUICtrlSetData($Input200, "")
GUICtrlSetData($Input300, "")
GUICtrlSetData($Input4, "")
GUICtrlSetData($Input5,"")
GUICtrlSetData($Input6, "")
GUICtrlSetData($Input7, "")
GUICtrlSetData($Input8,"")
GUICtrlSetData($Edit1,"")
GUICtrlSetData($Input9,"")
GUICtrlSetData($Input10,"")
GUICtrlSetData($Input11,"")
GUICtrlSetData($Input12,"")
GUICtrlSetData($Input13,"")
GUICtrlSetData($Edit2,"")
$aTermine_Telefon = IniReadSection($INI, "TermineTelefon")
_FillListView()
Case $Loschen
GUICtrlSetData($Input14, "")
GUICtrlSetData($Input100, "")
GUICtrlSetData($Input15, "")
GUICtrlSetData($Input200, "")
GUICtrlSetData($Input300, "")
GUICtrlSetData($Input4, "")
GUICtrlSetData($Input5, "")
GUICtrlSetData($Input6, "")
GUICtrlSetData($Input7, "")
GUICtrlSetData($Input8, "")
GUICtrlSetData($Edit1, "")
GUICtrlSetData($Input9, "")
GUICtrlSetData($Input10, "")
GUICtrlSetData($Input11, "")
GUICtrlSetData($Input12, "")
GUICtrlSetData($Input13, "")
GUICtrlSetData($Edit2, "")
Case $Drucken
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui2)
EndSwitch

EndSwitch
WEnd

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

#cs ------------------
Diese funktion ist schon für fenster 2 mit
#ce -------------------
Func _FillListView()
_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 9999 Then Return
For $i = 1 To UBound($aTermineTelefon) -1
GUICtrlCreateListViewItem($aTermineTelefon[$i][0] & '|' & $aTermineTelefon[$i][1], $Listview1)
Next
_GUICtrlListView_DeleteAllItems($Listview2)
If $lastNum_1 = 9999 Then Return
For $i = 1 To UBound($aTermineHotel) -1
GUICtrlCreateListViewItem($aTermineHotel[$i][0] & '|' & $aTermineHotel[$i][1], $Listview2)
Next
EndFunc

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

Func _LeftDblClick($info) ; Inhalt der angeklickten Zeile (alle Spalten) wird in GUI gezeigt
GUICtrlSetData($dd_datum , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 1))
GUICtrlSetData($Input14, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 2))
GUICtrlSetData($Input100 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 3))
GUICtrlSetData($Input15 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 4))
GUICtrlSetData($Input200 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 5))
GUICtrlSetData($Input300 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 6))
GUICtrlSetData($Input4 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 7))
GUICtrlSetData($Input5, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 8))
GUICtrlSetData($Input6 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 9))
GUICtrlSetData($Input7 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 10))
GUICtrlSetData($Input8 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 11))
GUICtrlSetData($Edit1 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 12))
GUICtrlSetData($Input9 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 13))
GUICtrlSetData($Input10 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 14))
GUICtrlSetData($Input11 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 15))
GUICtrlSetData($Input12 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 16))
GUICtrlSetData($Input13 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 17))
GUICtrlSetData($Edit2 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 18))
GUISetState(@SW_SHOW, $hGui2)
EndFunc

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

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

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

$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
_LeftDblClick($aInfo)
Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
Return $GUI_RUNDEFMSG ; allow the default processing
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

[/autoit]

bei login einfach nur enter drücken

Sirocool

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.12.1
Author: Franz Probst

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

Script Function:
smsjoker sms sender
von Loginkennung des Accounts (Absenderkennung)
passwort Passwort
ziel Rufnummer des Empfängers
absender eigen/anonym (eigene oder anonyme Absenderkennung)
text die Nachricht (HTTP-kodiert)
konto Anzeige des Restguthabens (optional)
http://i2sms.de/cgi-perl/prepa…text=Hallo+Welt
#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#include <GUIConstantsEX.au3>
#include <IE.au3>
#include <Inet.au3>

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

$purl = "http://i2sms.de/cgi-perl/prepaid/private/smsversand.cgi?"
$ziel = ""
$nachricht = ""

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

if FileExists("sms.ini") Then
_Main()
Else
$num0 = InputBox("Absendernummer eingeben", "Bitte Absender Rufnummer eingeben")
$pas = InputBox("Kennwort eigeben", "Passwort eingeben", "", "*")
$num = StringReplace($num0, " ", "")
IniWrite("sms.ini", "options", "absender", $num)
IniWrite("sms.ini", "options", "passwort", $pas)
MsgBox(64,"Information","Beim nächsten Start wird automatisch die Rufnummer: " & $num & @CRLF & "und das Kennwort als Login verwendet." & @CRLF)
_Main()
EndIf

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

Func _Main()
$ins = iniread("sms.ini", "options", "absender", "not found")
$ins2 = iniread("sms.ini", "options", "passwort", "not found")

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

#Region ### START Koda GUI section ### Form=U:\autoit\autoit\sms\Form1.kxf
$Form1_1 = GUICreate("SMS Sender V1.0 for http://www.smsjoker.de", 383, 285, 285, 131)
$lb_empf = GUICtrlCreateLabel("Empfänger", 56, 48, 55, 17)
$lb_abs = GUICtrlCreateLabel("Absender", 56, 16, 49, 17)
$lb_Nachricht = GUICtrlCreateLabel("Nachricht", 56, 112, 50, 17)
$box_Absender = GUICtrlCreateInput("", 120, 16, 225, 21)
$box_Empfaenger = GUICtrlCreateInput("", 120, 48, 225, 21)
$txt_nachricht = GUICtrlCreateEdit("", 120, 112, 233, 105)
GUICtrlSetLimit(-1, 160)
$senden = GUICtrlCreateButton("senden", 264, 224, 89, 25, 0)
$btn_reset = GUICtrlCreateButton("reset", 24, 224, 105, 25, 0)
$btn_adress = GUICtrlCreateButton("Empfänger aus Adressbuch", 184, 80, 163, 25, 0)
$Datei = GUICtrlCreateMenu("&Datei")
$bt_optionen = GUICtrlCreateMenuItem("Optionen", $Datei)
$bt_ende = GUICtrlCreateMenuItem("Beenden", $Datei)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

GUICtrlSetData($box_Absender, $ins)

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

if $cmdline[0] > 0 Then
GUICtrlSetData($box_Empfaenger, $cmdline[1])
GUICtrlSetData($txt_nachricht, "Hallo " & $cmdline[2] & ", ")
EndIf

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $bt_ende
Exit
Case $senden
$1 = GUICtrlread($box_Empfaenger)
$2 = GUICtrlRead($txt_nachricht)
if $1 = "" then
MsgBox(64, "", "Empfänger darf nicht leer sein.")
Exit
EndIf
if $2 = "" Then
MsgBox(64, "", "Nachrichtentext darf nicht leer sein.")
Exit
EndIf

$finaltext = _UnicodeURLEncode(GUICtrlread($txt_nachricht))
$finalempf = StringReplace(GUICTRLread ($box_Empfaenger), " ", "")
$url = $purl & "von=" & $ins & "&passwort=" & $ins2 & "&absender=eigen" & "&ziel=" & $finalempf & "&text=" & $finaltext

;MsgBox(64,"Fehler","Code: "& $url)
;$sText = _INetgetsource($url)
;$open = _IECreate($url, 0, 0, 1)
;$1sText = _IEBodyReadText ($open)

if _INetGetSource($url) = "200" then
MsgBox(64,"success","Nachricht "& GUICtrlread($txt_nachricht) & " wurde erfolgreich verschickt.")
GUICtrlSetData($txt_nachricht, "")
GUICtrlSetData($box_Empfaenger, "")
Else
$sText = _INetGetSource($url)
if $sText > "500" Then
MsgBox(64,"Fehler","Code: "& $sText)
Else
MsgBox(64,"Fehler","unkommentierter Fehler.")
EndIf
EndIf

Case $bt_optionen
GUISetState ( @SW_HIDE, $Form1_1 )
_optionen()
Case $btn_reset
GUICtrlSetData($txt_nachricht, "")
GUICtrlSetData($box_Empfaenger, "")

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

Case $btn_adress
Opt("OnExitFunc", "nummer")
Exit
EndSwitch
WEnd
EndFunc

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

Func nummer()
Run(@ScriptDir & "\numern.exe")
EndFunc

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

Func _optionen()
$ins = iniread("sms.ini", "options", "absender", "not found")
$ins2 = iniread("sms.ini", "options", "passwort", "not found")

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\fpr\desktop\autoit\sms\optionen.kxf
$opt_form = GUICreate("login ändern", 291, 150, 274, 220)
$Label1 = GUICtrlCreateLabel("Login", 32, 24, 30, 17)
$Label2 = GUICtrlCreateLabel("Passwort", 32, 64, 47, 17)
$opt_login = GUICtrlCreateInput("", 104, 24, 137, 21)
GUICtrlSetData(-1, $ins)
$opt_passwd = GUICtrlCreateInput("", 104, 64, 137, 21)
GUICtrlSetData(-1, $ins2)
$bt_speichern = GUICtrlCreateButton("speichern", 168, 96, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $bt_speichern
IniWrite("sms.ini", "options", "absender", Guictrlread($opt_login))
IniWrite("sms.ini", "options", "passwort", Guictrlread($opt_passwd))
MsgBox(64,"success","erfolgreich gespeichert!")
GUISetState ( @SW_HIDE, $opt_form)
_Main()
Case $GUI_EVENT_CLOSE
GUISetState ( @SW_HIDE, $opt_form)
_Main()
EndSwitch
WEnd
EndFunc ;=== _optionen

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

Func _UnicodeURLEncode($UnicodeURL)
$UnicodeBinary = StringToBinary ($UnicodeURL, 4)
$UnicodeBinary2 = StringReplace($UnicodeBinary, '0x', '', 1)
$UnicodeBinaryLength = StringLen($UnicodeBinary2)
Local $EncodedString
For $i = 1 To $UnicodeBinaryLength Step 2
$UnicodeBinaryChar = StringMid($UnicodeBinary2, $i, 2)
If StringInStr("$-_.+!*'(),;/?:@=&abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", BinaryToString ('0x' & $UnicodeBinaryChar, 4)) Then
$EncodedString &= BinaryToString ('0x' & $UnicodeBinaryChar)
Else
$EncodedString &= '%' & $UnicodeBinaryChar
EndIf
Next
Return $EncodedString
EndFunc ;=== _UnicodeURLEncode

[/autoit]

ist aber nicht von mir du musst dich bei der seite anmelden http://smsjoker.de/

Sirocool

aber bei mir funktionieren die vor und zurück und neu Laden alle Buttons einwandfrei.

Und bei meiner Schwester auf den Laptop geht ja auch alles die bekommt die versionen von mir immer als erstes zum testen ich werde schaun was sich machen lässt oki

Sirocool

ich werde bei der näcksten version drauf achten

Sirocool

den fehlen ? müsst ihr mir auch dazu schreiben

Sirocool

Müsst ihr für die jeweiligen befehle anpassen wo das auf gehn soll

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here
#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Programm\New\Form\Terminplanung.kxf
#EndRegion ### END Koda GUI section ###

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

_FillListView()

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

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

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

Func _LeftDblClick($info) ; Inhalt der angeklickten Zeile (alle Spalten) wird in GUI gezeigt
GUICtrlSetData($dd_datum , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 1))
GUICtrlSetData($Input14, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 2))
GUICtrlSetData($Input1 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 3))
GUICtrlSetData($Input15 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 4))
GUICtrlSetData($Input2 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 5))
GUICtrlSetData($Input3 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 6))
GUICtrlSetData($Input4 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 7))
GUICtrlSetData($Input5, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 8))
GUICtrlSetData($Input6 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 9))
GUICtrlSetData($Input7 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 10))
GUICtrlSetData($Input8 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 11))
GUICtrlSetData($Edit1 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 12))
GUICtrlSetData($Input9 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 13))
GUICtrlSetData($Input10 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 14))
GUICtrlSetData($Input11 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 15))
GUICtrlSetData($Input12 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 16))
GUICtrlSetData($Input13 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 17))
GUICtrlSetData($Edit2 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 18))
GUISetState(@SW_SHOW, $hGui2)
EndFunc

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

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

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

$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
_LeftDblClick($aInfo)
Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
Return $GUI_RUNDEFMSG ; allow the default processing
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

[/autoit]

Sirocool

in den regeln steht das für bots nicht geholfen wird.

Sirocool

wie gesagt danke Raupi für deine schnell antwort

Sirocool

ich will das so machen das das näckste fenster beim password eingabe aufgeht

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: Sirocool
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
$Meldung = ""
; Script Start - Add your code below here

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

#include <GUIConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include "LogIn.au3"

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

#cs ----------------------------------------------------------------------------
Script Function: Password
#ce ----------------------------------------------------------------------------
$INI3Status = False
$INI3StatusAlt = True
$User = "Test|Test2|Test3"
$Pass = "test|34|56"

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

#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Form\Callcenter\Login.kxf
$hGui = GUICreate("Login", 265, 168, 502, 319)
GUISetBkColor(0xFFFFFF)
$Login = GUICtrlCreateGroup("Login", 16, 8, 225, 105)
$Label1 = GUICtrlCreateLabel("Name", 24, 32, 32, 17)
$Label2 = GUICtrlCreateLabel("Password", 24, 72, 50, 17)
$UserIN = GUICtrlCreateInput("", 96, 32, 121, 21)
$PassIN = GUICtrlCreateInput("", 96, 72, 121, 21,0x0020)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Okay = GUICtrlCreateButton("Okay", 16, 128, 75, 25, 0,"MS Sans Serif")
$Chancel = GUICtrlCreateButton("Chancel", 168, 128, 75, 25, 0,"MS Sans Serif")
GUISetState(@SW_SHOW,$hGui)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Form\Callcenter.kxf
$hGui1 = GUICreate("Callcenter", 655, 449, 193, 125)
GUISetBkColor(0xFFFFFF)
$Terminubersicht = GUICtrlCreateGroup("Termin Übersicht", 8, 8, 433, 233)
$ListView1 = GUICtrlCreateListView("Nummer|Datum|Zeit|Frau|Mann|Kundenname|Anschrift|Telefon|Telefonnummer|Bemerkungen|CCA|FN|Hand|NA|nOK|Grund Mobil & Festnetz|", 24, 32, 402, 190)
GUICtrlSetFont($Listview1, 8, 400, 0, "MS Sans Serif")
; ### hier Kontextmenü für ListView einfügen:
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_edit = GUICtrlCreateMenuItem('Patient bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Patient löschen', $mnu)
; ### Ende Kontextmenü
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Kalender = GUICtrlCreateGroup("Kalender", 456, 8, 185, 233)
$MonthCal1 = GUICtrlCreateMonthCal("18/01/2009", 464, 24, 170, 178)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Menu = GUICtrlCreateGroup("Menu", 8, 256, 633, 105)
$Button = GUICtrlCreateButton("Terminplanung", 24, 280, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Adressbuch", 128, 280, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Button3", 232, 280, 75, 25, 0)
$Button4 = GUICtrlCreateButton("Button4", 336, 280, 75, 25, 0)
$Button5 = GUICtrlCreateButton("Button5", 440, 280, 75, 25, 0)
$Button6 = GUICtrlCreateButton("Button6", 544, 280, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Button7", 24, 320, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Button8", 128, 320, 75, 25, 0)
$Button9 = GUICtrlCreateButton("Button9", 232, 320, 75, 25, 0)
$Button10 = GUICtrlCreateButton("Button10", 336, 320, 75, 25, 0)
$Button11 = GUICtrlCreateButton("Button11", 440, 320, 75, 25, 0)
$Button12 = GUICtrlCreateButton("Button12", 544, 320, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Login = GUICtrlCreateGroup("Login", 8, 360, 633, 73)
$Name = GUICtrlCreateLabel("Name", 32, 390, 32, 17)
$Password = GUICtrlCreateLabel("Password", 224, 390, 50, 17)
$ok = GUICtrlCreateButton("OK", 440, 390, 75, 25, 0)
$chanel = GUICtrlCreateButton("CHANEL", 544, 390, 75, 25, 0)
$UserIN = GUICtrlCreateInput("", 80, 390, 121, 21)
$PassIN = GUICtrlCreateInput("", 296,390, 121, 21,0x0020)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

_FillListView()
GUISetState(@SW_SHOW, $hGui)
GUICtrlSetState ($hGui1, $GUI_HIDE)

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

While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle#
Case $hGui
Switch $msg[0] ; Event
Case $Okay ;und von hier
$Meldung = False
_LogIn($UserIN,$PassIN,$User,$Pass,$hGui1,"Zeigen")
Case $Chancel
Exit
Case $GUI_EVENT_CLOSE
Exit
Case $Okay
GUISetState(@SW_SHOW, $hGui1)
EndSwitch
Case $hGui1
Switch $msg[0] ;Fehler: Hier das hast du vergessen

Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)

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

EndSwitch
EndSwitch
WEnd

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

#cs ------------------
Diese funktion ist schon für fenster 2 mit
#ce-------------------
Func _FillListView()

EndFunc

[/autoit]

die login.au3

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: Hendrik Norkowski

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

Script Function:
Dies ist ein UDF-Script. UDFs: _LogIn
Das schrip fragt Benutzerdaten ab und gibt bei erfold die Gewünschten felder frei!

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

Sreibe: _LogIn ($UserInput,$PasswortInput,$UserDaten,$Passwortdaten,$Veränderfeld,$Status ("Zeigen","Verstecken")
Setzen sie Befor sie Die Func beim Ersten mal ausführen umbedingt $Meldung = False
Trenne die User und Passworter mit "|"
Wenn sie mehrere Objekte mit einem Passwort anzeigen mochten, füchren sie die Func erneut mit den gleichen daten aus bist auf $Feld
wollen sie die Func jedoch auf eine Neues Passwortfeld beziehen nehmen sie die neuen daten, und setzen sie $Meldung = False wieder

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

Um die Felder zu verstecken, befor das paswort eingegeben wurde müssen sie dieses Tun: GuiCtrlSetState ($Feld,$Status) $Status = $GUI_HIDE zum verstecken, $GUI_SHOW zum anzeigen
#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here
#include <GUIConstantsEx.au3>
Global $INI3Status = False
Func _LogIn ($InUser,$InPass,$UserData,$PassData,$FreiFeld,$AnzeigeStatus)
$PassINR = GUICtrlRead ($InUser)
$UserINR = GUICtrlRead ($InPass)
If $PassINR <> "" Then
If $UserINR <> "" Then
$sUser = StringSplit ($UserData,"|")
$sPass = StringSplit ($PassData,"|")
$Benutzerdaten = True
For $i = 1 To $sUser[0]
If $sUser[0] = $sPass[0] Then
If $UserINR = $sUser[$i] Then
If $PassINR = $sPass[$i] Then
$INI3Status = True
EndIf
EndIf
Else
$Benutzerdaten = False
EndIf
Next
If $Benutzerdaten = False Then
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Fehler in den Benutzerdaten!")
EndIf
ElseIf $sPass[0] <> $sUser[0] Then
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Falscher Benutzerdatenbank!")
EndIf
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Es wurden keine Anmelde-Daten eingegeben!")
EndIf
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Es wurden keine Anmelde-Daten eingegeben!")
EndIf
EndIf
If $INI3Status = True Then
If $AnzeigeStatus = "Zeigen" Then
GUICtrlSetState ($FreiFeld, $GUI_SHOW)
ElseIf $AnzeigeStatus = "Verstecken" Then
GUICtrlSetState ($FreiFeld, $GUI_HIDE)
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox (16,"Error","Falsche Benutzerdaten!")
EndIf
EndIf
EndFunc

[/autoit]

ps ich suche schon die ganze zeit in diesen forum aber keiner hat es so wie ich es brauche bis jetzt die frage nur alle wie das geht mit Internet

Sirocool

habe erstmal nur die grundfunktion reingemacht

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <INet.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 600, 161, 194, 124)
GUISetIcon("C:\Programme\Kong\Kong.exe")
$ie = _IECreateEmbedded()
$Group1 = GUICtrlCreateObj($ie,325,25,300, 200)
GUICtrlSetFont($Group1, 8, 400, 0, "MS Sans Serif")
$ie.navigate("http://autoit.de/")
$Combo1 = GUICtrlCreateCombo("Suchmaschienen",220, 33, 100, 21)
GUICtrlSetData(-1,"-----------------------------------------|Fireball|Google|MSN|Yahoo|-----------------------------------------|Versandhäuser|-----------------------------------------|Bauer|Neckermann|Otto|Schwab|Quelle|-----------------------------------------|Internet Versand|-----------------------------------------|Amazon|Ebay|")
$Input = GUICtrlCreateInput("", 16, 32, 200, 21)
GUICtrlSetBkColor(-1, 0xD8E4F8)
$Button1 = GUICtrlCreateButton("Suchen", 16, 64, 305, 25, 0)
GUICtrlSetBkColor(-1, 0xD8E4F8)
$Button2 = GUICtrlCreateButton("Bye Bye", 16, 96, 305, 25, 0)
GUICtrlSetBkColor(-1, 0xD8E4F8)
$Label1 = GUICtrlCreateLabel("Copyright tom12345mes", 112, 136, 117, 17)
GUICtrlSetBkColor(-1, 0xD8E4F8)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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

Case $Button1
Switch GUICtrlRead($Combo1)
Case "Google"
$ie.navigate('http://www.google.de/search?hl=de&q='&GUICtrlRead($Input))
EndSwitch
EndSwitch
WEnd

[/autoit]

Sirocool

wenn ja dann schau im forum ihr nach gibt es 2 beispiele

Sirocool

aber die beta wird ausschliesslich getestet von leuten aus dem forum ihr Link für die anmeldung zum betatester

Und ihr ist der Link vom Stand 01.01.2009 ohne betatest

oder gleich unter http://www.thedestroyedcity.de.tf

Sirocool

wie gesagt wir suchen schonmal Beta tester die gerne später das Spiel The Destroyed City für uns testen fürden maximal 10 Leute werden ausgewählt Ihr bekommt dann ein link zum download zu geschickt.

Einfach ihr in diesen Thema rein schreiben ja ich will dabei sein danke

Sirocool

dein script hört sich ganz gewaltig nach bot an Simmen wenn man den so anschaut

Sirocool

nur in zeile 5 und 6 sind fehler nicht " das Sondern <.au3>

musst auch die
resources.au3 in dienen ordner mit drin haben wo der script ist

Beiträge von Sirocool

The Destroyed City test version

Hat jemand lust diese Hilfe zu übersetzen?

listenwiev hilfe

listenwiev hilfe

listenwiev hilfe

listenwiev hilfe

SMS-Programm

Devil Browser

Devil Browser

Devil Browser

Doppelklick

Login für WoW + Parameter(mal wieder)

brauche mal eure hilfe

brauche mal eure hilfe

Such maschine

Internet Browser

The destroyed City

Wir suchen beta tester

PixelSearch - kleines Anfängerproblem

Ressourcen Daten (Buttons...) aus DLL mit AutoIt laden