Hallo Thorsten,
es geht nur um die reine Darstellung, weiter gerechnet wird mit den Zahlen nicht.
Vielen Dank für die Hilfe, es funktioniert
Hallo Thorsten,
es geht nur um die reine Darstellung, weiter gerechnet wird mit den Zahlen nicht.
Vielen Dank für die Hilfe, es funktioniert
Hallöchen,
Ich möchte gerne einige Werte einer Homepage auslesen, um sie in meinem Programm zu verarbeiten.
Ich stecke aber z.Zt. fest. Ich möchte ein onmouseover event auslesen, aber ich weiß nicht genau wie ich das machen kann/soll.
Der Quelltext der betreffenden Stelle:
<div class="statusBar statusBarMon"
onmouseover="getCampaignStatus(2263)"
onmouseout="return nd()" >
<img src="pics/status_bar.gif"
style="width:6px;"
title=""
id="listingRow2263_stbar" />
</div>
Beim Mouseoverevent erscheint dann ein Tootltip mit 4 Zeilen. Diese Zeilen möchte ich auslesen und in ein Array schreiben, aber ich finde nicht den richtigen Befehl, um es auszulesen.
Gibt es die Möglichkeit oder komme ich nicht an die Daten?
Hallo ihr lieben,
Ich hab ein kleines problem, und zwar kriege ich von einem Server täglich eine Exceldatei geliefert, welche ich mit AutoIT verarbeite.
AutoIT soll mir aus dem Bericht des Servers einige Daten auslesen und in eine neueExceldatei kopieren.
Soweit klappt das auch, nur leider ändert er in einem Feld das Format von Zahl auf Text ( weiß nicht warum)
Die Zahl sieht dann so aus:
3,54866E+14, sie soll aber so aussehen
354866041347465.
Die Tabelle wird mit $oExcel.Columns.AutoFit automatisch angepasst, das alles eigentlich zu lesen sein sollte.
Ich habe es schon mit
[autoit]_ExcelNumberFormat($oExcel, "0", 2, 23, 11, 1)
[/autoit]versucht, aber es passiert da nix.
Gehe ich manuell über Zelle formatieren, und wähle unter benutzerdefiniert 0 aus, klappt es und die Zahl steht so da wie ich sie haben will.
Habe auch schon ein Makro mit VBA aufgezeichnet, aber da steht an sich nicht viel anderes drin als in der Excel.au3. (Selection.NumberFormat = "0")
Könnte mir jemand dabei helfen?
MfG TheLuBu
Das meinte ich mit einer 2ten Meinung
Vielen Dank
Vielen Dank für die Kritik Oscar, ich bin nicht böse drum. Für mich hat es so funktioniert, aber wenn man ne 2te Meinung bekommt, sieht man besser, was man vergessen hat
Ok hier mit Fehlerüberprüfung ( $Array muss Array sein, und $Array muss 2-dimensional sein)
$Replace als Lokale Variable dekliniert
ByRef eingesetzt
Zum $Replace,
Da durch die Schleife jeder Eintrag des Arrays mit dem String verglichen und nacheinander ersetzt wird ,
muss $String = $Replace gesetzt werden (wenn ich mich da nicht täusche ^^).
Falls nicht bitte ich um Verzeihung
;===============================================================================
; Function Name: _Wildcards($String, $Array, $iStart = 0)
; Description: Ersetzt mehrere Teile eines Strings
; Parameter(s): $String Der String, in dem die Wildcards ersetzt werden sollen
; $Array Das Array, in dem die Wildcards und die Replacements gespeichert sind
; $iStart=0 Index des Arrays (Standard = 0)
; //// In der ersten Dimension müssen die Wildcards stehen
; //// $Array[$i][0] ="<Monat>"
; //// In der zweiten Dimension müssen die Replacements stehen
; //// $Array[$i][1] = @MON
; Return Value(s): Erfolg Gibt den neuen String zurück
; Fehler set @error 1 - $Array ist kein Array
; 2 - $Array ist kein 2-dimensionales Array
; Author(s): TheLuBu ([email='TheLuBu@veytal.com'][/email])
;===============================================================================
Func _Wildcards(ByRef $String, ByRef $Array, $iStart = 1)
Local $Replace
If Not IsArray($Array) Then Return SetError(1, 0, -1)
If UBound($Array, 0) <> 2 Then Return SetError(2, 0, -1)
For $i = $iStart To UBound($Array) - 1
$String = StringReplace($String, $Array[$i][0], $Array[$i][1])
Next
EndFunc ;==>_Wildcards
Hallöchen liebe Community,
Ich habe mal ein kleines Wildcardersetzungsscript geschrieben, weil ich das für eines meiner Programme gebraucht habe, und da ihr mir sehr geholfen habt, wollte ich auch einen kleinen Teil zurückgeben
Sagt mir was ihr davon haltet oder auch nicht
; #FUNCTION#
;===============================================================================
; Function Name: _Wildcards($sString, $avArray, $iStart = 0)
; Description: Ersetzt mehrere Teile eines Strings
; Parameter(s): $sString Der String, in dem die Wildcards ersetzt werden sollen
; $avArray Das Array, in dem die Wildcards und die Replacements gespeichert sind
; $iStart=0 Index des Arrays (Standard = 0)
; //// In der ersten Dimension müssen die Wildcards stehen
; //// $avArray[$i][0] ="<Monat>"
; //// In der zweiten Dimension müssen die Replacements stehen
; //// $avArray[$i][1] = @MON
; Return Value(s): Erfolg Gibt den neuen String zurück
; Fehler set @error 1 - $avArray ist kein Array
; 2 - $avArray ist kein 2-dimensionales Array
; Author(s): TheLuBu ([email='LuBu@veytal.com'][/email])
;===============================================================================
Func _Wildcards(ByRef $sString, ByRef $avArray, $iStart = 1)
If Not IsArray($avArray) Then Return SetError(1, 0, -1)
If UBound($avArray, 0) <> 2 Then Return SetError(2, 0, -1)
For $i = $iStart To UBound($avArray) - 1
$sString = StringReplace($sString, $avArray[$i][0], $avArray[$i][1])
Next
EndFunc ;==>_Wildcards
TheLuBu
Ich hab mal ein bisschen gesucht aber da ich nicht genau weiß, wie das mit Java ist, weiß ich nicht, ob es das ist was du möchtest, hier aber mal der Link
http://stadt-bremerhaven.de/programme-ohne-uac-abfrage-starten
wie genau es funktioniert weiß ich auch nicht, aber in der AutoitHilfe gibt es einige Beispiele
Such mal nach
#RequireAdmin
oder
autoit unter Windows Vista
in der Hilfe.
Ich hoffe ich konnte wenigstens ein bisschen helfen
TheLuBu
/push wenn ich darf
Der Sourcecode ist noch nicht fertig und einige Gedanken und Spielereien von mir sind noch drin, will den erst aufräumen wenns fertig ist
Daszu gehören auch einige Case´s, da habe ich mit Inpoutboxen gespielt
Hier mal der Quellcode des Gui´s (damit du siehst das es kein Bot ist )
#include <GuiIPAddress.au3>
#include <TabConstants.au3>
#include <GuiComboBox.au3>
#include <GUIListBox.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Clipboard.au3>
#include <String.au3>
#include <Misc.au3>
Global $aCheckbox[1], $iLeft = 30, $iTop = 60, $iLeftOffset, $iTopOffset = -20
#Region HauptGUI
;========================================================================================================================
;================================================HAUPT-GUI===============================================================
;========================================================================================================================
$CallSoftConfig = GUICreate("CallSoft", 336, 336, 239, 272)
$Save = GUICtrlCreateTab(8, 40, 321, 249)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet2 = GUICtrlCreateTabItem("Speichern")
GUICtrlSetState(-1, $GUI_SHOW)
$Pic1 = GUICtrlCreatePic("", 16, 72, 305, 41, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
If FileExists("settings.ini") = 0 Then
$Input1 = GUICtrlCreateInput("C:\Opt-Ins\", 16, 136, 185, 21)
Else
$Input1 = GUICtrlCreateInput(IniRead("settings.ini", "Save", "ExcelPfad", "NotFound"), 16, 136, 185, 21)
EndIf
$Excelsave = GUICtrlCreateLabel("Speicherort der Exceldatei", 16, 120, 128, 17)
$ChooseDirExcel = GUICtrlCreateButton("...", 208, 136, 57, 25, $WS_GROUP)
If FileExists("settings.ini") = 0 Then
$Input2 = GUICtrlCreateInput("C:\Opt-Ins\Voice\", 16, 224, 185, 21)
Else
$Input2 = GUICtrlCreateInput(IniRead("settings.ini", "Save", "VoicePfad", "NotFound"), 16, 224, 185, 21)
EndIf
$Label1 = GUICtrlCreateLabel("Speicherort der Voicefiles", 16, 200, 124, 17)
$ChooseVoiceDir = GUICtrlCreateButton("...", 208, 224, 57, 25, $WS_GROUP)
$Excelformat = GUICtrlCreateCombo("", 128, 160, 73, 25)
GUICtrlSetData(-1, ".csv|.xls|.csv + .xls", ".xls")
$Label4 = GUICtrlCreateLabel("Speichern als:", 16, 160, 71, 17)
$Voiceformat = GUICtrlCreateCombo("", 128, 256, 73, 25)
GUICtrlSetData(-1, ".wav|.mp3", ".wav")
$Label5 = GUICtrlCreateLabel("Welches Format:", 16, 256, 84, 17)
$TabSheet3 = GUICtrlCreateTabItem("FTP")
$IPAddress = GUICtrlCreateInput("192.168.255.255", 136, 128, 185, 25)
$Webadresse = GUICtrlCreateInput("www.ftpserver.de", 136, 160, 177, 21)
;~ $Pic5 = GUICtrlCreatePic("", 16, 72, 305, 41, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
If FileExists("settings.ini") = 0 Then
$FTPUser = GUICtrlCreateInput("Username", 160, 192, 153, 21)
GUICtrlSetTip(-1, "FTP Benutzername")
Else
$FTPUser = GUICtrlCreateInput(IniRead("settings.ini", "Save", "FTPUser", "NotFound"), 160, 192, 153, 21)
GUICtrlSetTip(-1, "FTP Benutzername")
EndIf
If FileExists("settings.ini") = 0 Then
$Password = GUICtrlCreateInput("******", 160, 224, 153, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
Else
$Passread = IniRead("settings.ini", "Save", "Password", "NotFound")
$Passdecrypt = _StringEncrypt(0, $Passread, "Pass", 2)
$Password = GUICtrlCreateInput($Passdecrypt, 160, 224, 153, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
EndIf
$Label2 = GUICtrlCreateLabel("Benutzername:", 16, 192, 75, 17)
$Label3 = GUICtrlCreateLabel("Passwort:", 16, 224, 50, 17)
$Group1 = GUICtrlCreateGroup("", 16, 120, 305, 65)
$Radio1 = GUICtrlCreateRadio("Ip Adresse:", 32, 128, 97, 17)
$Radio2 = GUICtrlCreateRadio("Webadresse:", 32, 160, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
$filemenu = GUICtrlCreateMenu("Datei")
$startitem = GUICtrlCreateMenuItem("Starten", $filemenu)
$saveitem = GUICtrlCreateMenuItem("Speichern", $filemenu)
$exititem = GUICtrlCreateMenuItem("Beenden", $filemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$kampmenu = GUICtrlCreateMenu("Kampagne...")
$kampnewitem = GUICtrlCreateMenuItem("... hinzufügen", $kampmenu)
$kampedititem = GUICtrlCreateMenuItem("... bearbeiten", $kampmenu)
$Voiceformatitem = GUICtrlCreateMenuItem("Voicefile Format", $kampmenu)
$helpmenu = GUICtrlCreateMenu("?")
$updateitem = GUICtrlCreateMenuItem("Nach Updates suchen...", $helpmenu)
$infoitem = GUICtrlCreateMenuItem("Hilfe", $helpmenu)
$infoitem2 = GUICtrlCreateMenuItem("Info", $helpmenu)
GUISetState(@SW_SHOW)
#EndRegion HauptGUI
;===================================================================================================================================
;================================================HAUPT-GUI-ENDE=====================================================================
;================================================CallSoft KAMPAGNE EDIT===============================================================
;===================================================================================================================================
#Region Kampagnen Edit GUI
$EditKSubKampEdit = GUICreate("Kampagne ändern", 264, 392, 243, 166, $WS_CAPTION, -1, $CallSoftConfig)
$EditKSubCombo3 = GUICtrlCreateCombo("", 8, 16, 177, 25)
$EditKSubvar = IniReadSectionNames("campaign.ini")
$EditKSubc = $EditKSubvar[0]
For $EditKSubi = 1 To $EditKSubc
_GUICtrlComboBox_AddString($EditKSubCombo3, $EditKSubvar[$EditKSubi])
Next
$EditKSubFTPPfadNew = GUICtrlCreateInput("", 120, 56, 129, 21)
$EditKSubKampagneku = GUICtrlCreateInput("", 120, 88, 129, 21)
$EditKSubSaveplaceNew = GUICtrlCreateInput("", 120, 120, 129, 21)
$EditKSubCombo1 = GUICtrlCreateCombo("", 88, 152, 65, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL, $WS_GROUP))
GUICtrlSetData(-1, "Täglich|Wöchentlich|Monatlich")
$EditKSubCombo2 = GUICtrlCreateCombo("", 160, 152, 89, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL, $WS_GROUP))
$EditKSubKampagnenspalte = GUICtrlCreateInput("", 120, 224, 41, 21)
$EditKSubRufnummerspalte = GUICtrlCreateInput("", 120, 248, 41, 21)
$EditKSubKundennummerspalte = GUICtrlCreateInput("", 120, 272, 41, 21)
$EditKSubDatumspalte = GUICtrlCreateInput("", 120, 296, 41, 21)
$EditKSubVoicefilespalte = GUICtrlCreateInput("", 120, 320, 41, 21)
$EditKSubUhrzeitspalte = GUICtrlCreateInput("", 120, 344, 41, 21)
$EditKSubOptinspalte = GUICtrlCreateInput("", 120, 368, 41, 21)
$EditKSubGroup1 = GUICtrlCreateGroup("Dateiformat", 184, 224, 73, 73)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$EditKSubRadio1 = GUICtrlCreateRadio(".wav", 192, 240, 113, 17)
$EditKSubRadio2 = GUICtrlCreateRadio(".mp3", 192, 264, 113, 17)
$EditKSubButton2 = GUICtrlCreateButton("OK", 184, 312, 73, 33, $WS_GROUP)
$EditKSubButton1 = GUICtrlCreateButton("Abbrechen", 184, 352, 73, 33, $WS_GROUP)
$EditKSubLabel2 = GUICtrlCreateLabel("FTP Pfad:", 8, 56, 52, 17)
$EditKSubLabel3 = GUICtrlCreateLabel("Kampagnenkürzel:", 8, 88, 92, 17)
$EditKSubLabel4 = GUICtrlCreateLabel("Speicherort der VF", 8, 120, 92, 17)
$EditKSubLabel5 = GUICtrlCreateLabel("Rücklieferung", 8, 152, 70, 17)
$EditKSubLabel6 = GUICtrlCreateLabel("Kampagnenname", 8, 224, 87, 17)
$EditKSubLabel7 = GUICtrlCreateLabel("Rufnummer", 8, 248, 58, 17)
$EditKSubLabel8 = GUICtrlCreateLabel("Kundennummer", 8, 272, 78, 17)
$EditKSubLabel9 = GUICtrlCreateLabel("Datum", 8, 296, 35, 17)
$EditKSubLabel10 = GUICtrlCreateLabel("Spalten der Exceldatei", 8, 184, 249, 28, $SS_CENTER)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$EditKSubLabel11 = GUICtrlCreateLabel("Name der VF", 8, 320, 66, 17)
$EditKSubLabel12 = GUICtrlCreateLabel("Uhrzeit", 8, 344, 37, 17)
$EditKSubLabel13 = GUICtrlCreateLabel("Optin Ergebnis", 8, 368, 73, 17)
$EditKSubButton3 = GUICtrlCreateButton("Button3", 232, 16, 17, 17, BitOR($BS_ICON, $WS_GROUP))
GUICtrlSetImage(-1, "C:\Program Files\AutoIt3\LuBu´s Scripts & Programs\delete_icon.ico", -1)
GUISetState(@SW_HIDE)
#EndRegion Kampagnen Edit GUI
;===================================================================================================================================
;================================================CallSoft KAMPAGNE EDIT===============================================================
;================================================CallSoft KAMPAGNE NEU================================================================
;===================================================================================================================================
#Region Neue Kampagne GUI
$NewKSubKampNew = GUICreate("Neue Kampagne", 265, 394, 192, 124, $WS_CAPTION, -1, $CallSoftConfig)
$NewKSubLabel1 = GUICtrlCreateLabel("Neue Kampagne Hinzufügen", 8, 8, 250, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$NewKSubKampagnenname = GUICtrlCreateInput("", 120, 40, 129, 21)
$NewKSubLabel14 = GUICtrlCreateLabel("Kampagnenname", 8, 40, 87, 17)
$NewKSubFTPPfadNew = GUICtrlCreateInput("", 120, 64, 129, 21)
$NewKSubKampagneku = GUICtrlCreateInput("", 120, 88, 129, 21)
$NewKSubSaveplaceNew = GUICtrlCreateInput("", 120, 112, 129, 21)
$NewKSubCombo1 = GUICtrlCreateCombo("", 88, 152, 65, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL, $WS_GROUP))
GUICtrlSetData(-1, "Täglich|Wöchentlich|Monatlich")
$NewKSubCombo2 = GUICtrlCreateCombo("", 160, 152, 89, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL, $WS_GROUP))
GUICtrlSetData(-1, "")
$NewKSubKampagnenspalte = GUICtrlCreateInput("", 120, 224, 41, 21)
$NewKSubRufnummerspalte = GUICtrlCreateInput("", 120, 248, 41, 21)
$NewKSubKundennummerspalte = GUICtrlCreateInput("", 120, 272, 41, 21)
$NewKSubDatumspalte = GUICtrlCreateInput("", 120, 296, 41, 21)
$NewKSubVoicefilespalte = GUICtrlCreateInput("", 120, 320, 41, 21)
$NewKSubUhrzeitspalte = GUICtrlCreateInput("", 120, 344, 41, 21)
$NewKSubOptinspalte = GUICtrlCreateInput("", 120, 368, 41, 21)
$NewKSubGroup1 = GUICtrlCreateGroup("Dateiformat", 184, 224, 73, 73)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$NewKSubRadio1 = GUICtrlCreateRadio(".wav", 192, 240, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$NewKSubRadio2 = GUICtrlCreateRadio(".mp3", 192, 264, 113, 17)
$NewKSubButton2 = GUICtrlCreateButton("OK", 184, 312, 73, 33, $WS_GROUP)
$NewKSubButton1 = GUICtrlCreateButton("Abbrechen", 184, 352, 73, 33, $WS_GROUP)
$NewKSubLabel2 = GUICtrlCreateLabel("FTP Pfad:", 8, 64, 52, 17)
$NewKSubLabel3 = GUICtrlCreateLabel("Kampagnenkürzel:", 8, 88, 92, 17)
$NewKSubLabel4 = GUICtrlCreateLabel("Speicherort der VF", 8, 112, 92, 17)
$NewKSubLabel5 = GUICtrlCreateLabel("Rücklieferung", 8, 152, 70, 17)
$NewKSubLabel6 = GUICtrlCreateLabel("Kampagnenname", 8, 224, 87, 17)
$NewKSubLabel7 = GUICtrlCreateLabel("Rufnummer", 8, 248, 58, 17)
$NewKSubLabel8 = GUICtrlCreateLabel("Kundennummer", 8, 272, 78, 17)
$NewKSubLabel9 = GUICtrlCreateLabel("Datum", 8, 296, 35, 17)
$NewKSubLabel10 = GUICtrlCreateLabel("Spalten der Exceldatei", 8, 192, 249, 28, $SS_CENTER)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$NewKSubLabel11 = GUICtrlCreateLabel("Name der VF", 8, 320, 66, 17)
$NewKSubLabel12 = GUICtrlCreateLabel("Uhrzeit", 8, 344, 37, 17)
$NewKSubLabel13 = GUICtrlCreateLabel("Optin Ergebnis", 8, 368, 73, 17)
GUISetState(@SW_HIDE)
;===================================================================================================================================
;================================================CallSoft KAMPAGNE NEU ENDE===========================================================
#EndRegion Neue Kampagne GUI
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<GUI TRIGGER>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;===================================================================================================================================
;================================================HAUPT-GUI TRIGGER==================================================================
#Region Kampagenauswahl
$aIni = IniReadSectionNames("campaign.ini")
If $aIni[0] <= 30 Then
$Kampagnechoose = GUICreate("Kampagnenauswahl", 290, 400, 243, 166, $WS_CAPTION, -1, $CallSoftConfig)
$KampchooseLabel1 = GUICtrlCreateLabel("Kampagnen auswählen", 0, 0, 264, 31, $SS_CENTER)
GUICtrlSetFont($KampchooseLabel1, 14, 800, 0, "MS Sans Serif")
$Kampchoosestart = GUICtrlCreateButton("Starten", 160, 352, 97, 33, $WS_GROUP)
$KampChooseCancel = GUICtrlCreateButton("Abbrechen", 176, 360, 105, 33, $WS_GROUP)
ReDim $aCheckbox[$aIni[0]]
For $i = 1 To $aIni[0]
If IsInt($i / 16) Then
$iLeftOffset += 130
$iTopOffset = 0
Else
$iTopOffset += 20
EndIf
$aCheckbox[$i - 1] = GUICtrlCreateCheckbox($aIni[$i], $iLeft + $iLeftOffset, $iTop + $iTopOffset, 120, 17, $WS_BORDER )
Next
ElseIf 30 < $aIni[0] < 60 Then
$Kampagnechoose = GUICreate("Kampagnenauswahl", 560, 700, 243, 166, $WS_CAPTION, -1, $CallSoftConfig)
$KampchooseLabel1 = GUICtrlCreateLabel("Kampagnen auswählen", 0, 0, 264, 31, $SS_CENTER)
GUICtrlSetFont($KampchooseLabel1, 14, 800, 0, "MS Sans Serif")
$Kampchoosestart = GUICtrlCreateButton("Starten", 224, 664, 97, 33, $WS_GROUP)
$KampChooseCancel = GUICtrlCreateButton("Abbrechen", 320, 664, 97, 33, $WS_GROUP)
ReDim $aCheckbox[$aIni[0]]
For $i = 1 To $aIni[0]
If IsInt($i / 31) Then
$iLeftOffset += 130
$iTopOffset = 0
Else
$iTopOffset += 20
EndIf
$aCheckbox[$i - 1] = GUICtrlCreateCheckbox($aIni[$i], $iLeft + $iLeftOffset, $iTop + $iTopOffset, 120, 17, $WS_BORDER)
Next
EndIf
GUISetState(@SW_HIDE)
#EndRegion
#Region Trigger
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
;~ ============================================Allgemeine Trigger================================================================================
Case $GUI_EVENT_CLOSE
$Exitmsg = MsgBox(36, "Beenden?", "Wollen Sie CallSoft wirklich beenden?")
If $Exitmsg = 6 Then
Changecheck()
If $Changecheck = 1 Then
$Exitmsg2 = MsgBox(36, "Speichern?", "Einstellungen wurden geändert. Wollen Sie alle Einstellungen Speichern?")
If $Exitmsg2 = 6 Then
Saveall()
Exit
ElseIf $Exitmsg2 = 7 Then
Exit
EndIf
Else
Exit
EndIf
EndIf
#Region Speichern
Case $startitem
GUISetState(@SW_SHOW, $Kampagnechoose)
Case $KampChooseCancel
GUISetState(@SW_HIDE, $Kampagnechoose)
Case $ChooseDirExcel
$ChooseDirExcelPath = FileSelectFolder("Ordner der Exceldatei auswählen", "", 7)
If @error = 1 Then
Else
GUICtrlSetData($Input1, $ChooseDirExcelPath)
IniWrite("settings.ini", "Save", "ExcelPfad", $ChooseDirExcelPath)
EndIf
Case $List1
$Addtext = GUICtrlRead ($List1)
$Textexist = GUICtrlRead($Voiceform)
GUICtrlSetData($Voiceform, $Textexist & $Addtext)
Case $ChooseVoiceDir
$ChooseVoiceDirPath = FileSelectFolder("Ordner der Exceldatei auswählen", "", 7)
If @error = 1 Then
Else
GUICtrlSetData($Input2, $ChooseVoiceDirPath)
IniWrite("settings.ini", "Save", "VoicePfad", $ChooseVoiceDirPath)
EndIf
Case $Excelformat
$ExcelformatIni = GUICtrlRead($Excelformat)
IniWrite("settings.ini", "Save", "ExcelFormat", $ExcelformatIni)
Case $Voiceformat
$VoiceformatIni = GUICtrlRead($Voiceformat)
IniWrite("settings.ini", "Save", "Voiceformat", $VoiceformatIni)
#EndRegion Speichern
#Region FTP TAB
Case $IPAddress
$IPAddressIni = GUICtrlRead($IPAddress)
IniWrite("settings.ini", "Save", "IPAdresse", $IPAddressIni)
Case $Webadresse
$WebadresseIni = GUICtrlRead($Webadresse)
IniWrite("settings.ini", "Save", "Webadresse", $WebadresseIni)
Case $FTPUser
$FTPUserIni = GUICtrlRead($FTPUser)
IniWrite("settings.ini", "Save", "FTPUser", $FTPUserIni)
Case $Password
$PasswordIni = GUICtrlRead($Password)
IniWrite("settings.ini", "Save", "Password2", $PasswordIni)
$Passencrypt = _StringEncrypt(1, $PasswordIni, "Pass", 2)
IniWrite("settings.ini", "Save", "Password", $Passencrypt)
Case $Radio1
IniWrite("settings.ini", "Save", "Way", "IP")
Case $Radio2
IniWrite("settings.ini", "Save", "Way", "Web")
#EndRegion FTP TAB
#Region Menu
Case $exititem
$Exitmsg = MsgBox(36, "Beenden?", "Wollen Sie CallSoft wirklich beenden?")
If $Exitmsg = 6 Then
Changecheck()
If $Changecheck = 1 Then
$Exitmsg2 = MsgBox(36, "Speichern?", "Wollen Sie alle Einstellungen Speichern?")
If $Exitmsg2 = 6 Then
Saveall()
Exit
ElseIf $Exitmsg2 = 7 Then
Exit
EndIf
Else
Exit
EndIf
EndIf
Case $kampnewitem
GUISetState(@SW_SHOW, $NewKSubKampNew)
Case $kampedititem
GUISetState(@SW_SHOW, $EditKSubKampEdit)
Case $updateitem
$Updater = _SelfUpdater("test.exe", 0, "CallSoft")
If $Updater = 0 Then
MsgBox(0, "", "Es wurde keine Datei zum Downloaden angegeben oder der Pfad enthält kein '/'")
ElseIf $Updater = 2 Then
MsgBox(0, "", "Download Datei hat 0 Byte Größe")
ElseIf $Updater = 3 Then
MsgBox(0, "", "Keine neue Version verfügbar")
ElseIf $Updater = 4 Then
MsgBox(0, "", "Abbruch des Update's durch User")
ElseIf $Updater = 5 Then
MsgBox(0, "", "Download-Datei hat nicht den selben Namen wie das ausgeführte Programm selbst.")
EndIf
Case $kampmenu
$Inifilecheck2 = FileExists("campaign.ini")
If $Inifilecheck2 <> 1 Then
GUISetState($kampedititem, $GUI_DISABLE)
Else
GUISetState($kampedititem, $GUI_ENABLE)
EndIf
#EndRegion Menu
#Region Kampagne Edit Trigger
;==================================================CallSoft KAMPAGNE EDIT TRIGGER=====================================================
;===================================================================================================================================
Case $EditKSubCombo3 ;nur bei Änderung der Combo sonst flackert die GUI
$EditKSubKampagneini = IniReadSection("campaign.ini", GUICtrlRead($EditKSubCombo3))
GUICtrlSetData($EditKSubFTPPfadNew, $EditKSubKampagneini[1][1])
GUICtrlSetData($EditKSubKampagneku, $EditKSubKampagneini[2][1])
GUICtrlSetData($EditKSubSaveplaceNew, $EditKSubKampagneini[3][1])
GUICtrlSetData($EditKSubCombo1, $EditKSubKampagneini[4][1])
GUICtrlSetData($EditKSubCombo2, $EditKSubKampagneini[5][1])
If GUICtrlRead($EditKSubCombo1) = "Täglich" Then
GUICtrlSetData($EditKSubCombo2, "", "")
GUICtrlSetState($EditKSubCombo2, $GUI_DISABLE)
ElseIf GUICtrlRead($EditKSubCombo1) = "Wöchentlich" Then
GUICtrlSetState($EditKSubCombo2, $GUI_ENABLE)
GUICtrlSetData($EditKSubCombo2, "", "")
GUICtrlSetData($EditKSubCombo2, "Montag|Dienstag|Mittwoch|Donnerstag|Freitag|Samstag|Sonntag", "Montag")
ElseIf GUICtrlRead($EditKSubCombo1) = "Monatlich" Then
GUICtrlSetData($EditKSubCombo2, "", "")
GUICtrlSetState($EditKSubCombo2, $GUI_DISABLE)
EndIf
GUICtrlSetData($EditKSubKampagnenspalte, $EditKSubKampagneini[6][1])
GUICtrlSetData($EditKSubRufnummerspalte, $EditKSubKampagneini[7][1])
GUICtrlSetData($EditKSubKundennummerspalte, $EditKSubKampagneini[8][1])
GUICtrlSetData($EditKSubDatumspalte, $EditKSubKampagneini[9][1])
GUICtrlSetData($EditKSubVoicefilespalte, $EditKSubKampagneini[10][1])
GUICtrlSetData($EditKSubUhrzeitspalte, $EditKSubKampagneini[11][1])
GUICtrlSetData($EditKSubOptinspalte, $EditKSubKampagneini[12][1])
If $EditKSubKampagneini[13][1] = 1 Then
GUICtrlSetState($EditKSubRadio1, $GUI_CHECKED)
Else
GUICtrlSetState($EditKSubRadio1, $GUI_UNCHECKED)
EndIf
If $EditKSubKampagneini[14][1] = 1 Then
GUICtrlSetState($EditKSubRadio2, $GUI_CHECKED)
Else
GUICtrlSetState($EditKSubRadio2, $GUI_UNCHECKED)
EndIf
Case $EditKSubCombo1 ;nur bei Änderung der Combo sonst flackert die GUI
If GUICtrlRead($EditKSubCombo1) = "Täglich" Then
GUICtrlSetData($EditKSubCombo2, "", "")
GUICtrlSetState($EditKSubCombo2, $GUI_DISABLE)
ElseIf GUICtrlRead($EditKSubCombo1) = "Wöchentlich" Then
GUICtrlSetState($EditKSubCombo2, $GUI_ENABLE)
GUICtrlSetData($EditKSubCombo2, "", "")
GUICtrlSetData($EditKSubCombo2, "Montag|Dienstag|Mittwoch|Donnerstag|Freitag|Samstag|Sonntag", "Montag")
ElseIf GUICtrlRead($EditKSubCombo1) = "Monatlich" Then
GUICtrlSetData($EditKSubCombo2, "", "")
GUICtrlSetState($EditKSubCombo2, $GUI_DISABLE)
EndIf
Case $EditKSubButton2 ; Ok wird gedrückt
$EditKSub14 = GUICtrlRead($EditKSubCombo3)
$EditKSub0 = GUICtrlRead($EditKSubFTPPfadNew)
$EditKSub1 = GUICtrlRead($EditKSubKampagneku)
$EditKSub2 = GUICtrlRead($EditKSubSaveplaceNew)
$EditKSub3 = GUICtrlRead($EditKSubCombo1)
$EditKSub4 = GUICtrlRead($EditKSubCombo2)
$EditKSub5 = GUICtrlRead($EditKSubKampagnenspalte)
$EditKSub6 = GUICtrlRead($EditKSubRufnummerspalte)
$EditKSub7 = GUICtrlRead($EditKSubKundennummerspalte)
$EditKSub8 = GUICtrlRead($EditKSubDatumspalte)
$EditKSub9 = GUICtrlRead($EditKSubVoicefilespalte)
$EditKSub10 = GUICtrlRead($EditKSubUhrzeitspalte)
$EditKSub11 = GUICtrlRead($EditKSubOptinspalte)
$EditKSub12 = GUICtrlRead($EditKSubRadio1) ; =4 nicht ausgewählt, =1 ausgewählt
$EditKSub13 = GUICtrlRead($EditKSubRadio2) ; =4 nicht ausgewählt, =1 ausgewählt
IniWriteSection("campaign.ini", $EditKSub14, "FTP-Pfad = " & $EditKSub0 & @LF & "Kampagnenkürzel = " & $EditKSub1 & @LF & "Speicherort = " & $EditKSub2 & @LF & "Rücklieferung = " & $EditKSub3 & @LF & "R-Zusatz = " & $EditKSub4 & @LF & "Kampagnenspalte = " & $EditKSub5 & @LF & "Rufnummerspalte = " & $EditKSub6 & @LF & "Kundennummerspalte = " & $EditKSub7 & @LF & "Datumspalte = " & $EditKSub8 & @LF & "Voicefilespalte = " & $EditKSub9 & @LF & "Uhrzeitspalte = " & $EditKSub10 & @LF & "Optinspalte = " & $EditKSub11 & @LF & "Wavformat = " & $EditKSub12 & @LF & "Mp3format = " & $EditKSub13)
GUICtrlSetData($EditKSubFTPPfadNew, "")
GUICtrlSetData($EditKSubKampagneku, "")
GUICtrlSetData($EditKSubSaveplaceNew, "")
GUICtrlSetData($EditKSubCombo1, "")
GUICtrlSetData($EditKSubCombo1, "Täglich|Wöchentlich|Monatlich", "Täglich")
GUICtrlSetData($EditKSubCombo2, "")
GUICtrlSetData($EditKSubKampagnenspalte, "")
GUICtrlSetData($EditKSubRufnummerspalte, "")
GUICtrlSetData($EditKSubKundennummerspalte, "")
GUICtrlSetData($EditKSubDatumspalte, "")
GUICtrlSetData($EditKSubVoicefilespalte, "")
GUICtrlSetData($EditKSubUhrzeitspalte, "")
GUICtrlSetData($EditKSubOptinspalte, "")
GUICtrlSetState($EditKSubRadio1, $GUI_CHECKED)
GUICtrlSetState($EditKSubRadio2, $GUI_UNCHECKED)
GUISetState(@SW_HIDE, $EditKSubKampEdit)
GUISetState(@SW_SHOW, $CallSoftConfig)
Case $EditKSubButton1 ; Abbrechen wurde gedrückt
GUICtrlSetData($EditKSubFTPPfadNew, "")
GUICtrlSetData($EditKSubKampagneku, "")
GUICtrlSetData($EditKSubSaveplaceNew, "")
GUICtrlSetData($EditKSubCombo1, "")
GUICtrlSetData($EditKSubCombo1, "Täglich|Wöchentlich|Monatlich", "Täglich")
GUICtrlSetData($EditKSubCombo2, "")
GUICtrlSetData($EditKSubKampagnenspalte, "")
GUICtrlSetData($EditKSubRufnummerspalte, "")
GUICtrlSetData($EditKSubKundennummerspalte, "")
GUICtrlSetData($EditKSubDatumspalte, "")
GUICtrlSetData($EditKSubVoicefilespalte, "")
GUICtrlSetData($EditKSubUhrzeitspalte, "")
GUICtrlSetData($EditKSubOptinspalte, "")
GUICtrlSetState($EditKSubRadio1, $GUI_CHECKED)
GUICtrlSetState($EditKSubRadio2, $GUI_UNCHECKED)
GUISetState(@SW_HIDE, $EditKSubKampEdit)
GUISetState(@SW_SHOW, $CallSoftConfig)
Case $EditKSubButton3
$EditKSubmsg = MsgBox(52, "Kampagne löschen", "Wollen Sie die Kampagne " & GUICtrlRead($EditKSubCombo3) & " wirklich löschen?")
If $EditKSubmsg = 6 Then
IniDelete("campaign.ini", GUICtrlRead($EditKSubCombo3))
$EditKSubvar2 = _GUICtrlComboBox_GetListArray($EditKSubCombo3)
For $EditKSubj = 1 To $EditKSubvar2[0]
_GUICtrlComboBox_DeleteString($EditKSubCombo3, $EditKSubvar2[$EditKSubj])
Next
$EditKSubvar = IniReadSectionNames("campaign.ini")
$EditKSubc = $EditKSubvar[0]
For $EditKSubi = 1 To $EditKSubc
_GUICtrlComboBox_AddString($EditKSubCombo3, $EditKSubvar[$EditKSubi])
Next
GUICtrlSetData($EditKSubFTPPfadNew, "")
GUICtrlSetData($EditKSubKampagneku, "")
GUICtrlSetData($EditKSubSaveplaceNew, "")
GUICtrlSetData($EditKSubCombo1, "")
GUICtrlSetData($EditKSubCombo1, "Täglich|Wöchentlich|Monatlich", "Täglich")
GUICtrlSetData($EditKSubCombo2, "")
GUICtrlSetData($EditKSubKampagnenspalte, "")
GUICtrlSetData($EditKSubRufnummerspalte, "")
GUICtrlSetData($EditKSubKundennummerspalte, "")
GUICtrlSetData($EditKSubDatumspalte, "")
GUICtrlSetData($EditKSubVoicefilespalte, "")
GUICtrlSetData($EditKSubUhrzeitspalte, "")
GUICtrlSetData($EditKSubOptinspalte, "")
GUICtrlSetState($EditKSubRadio1, $GUI_CHECKED)
GUICtrlSetState($EditKSubRadio2, $GUI_UNCHECKED)
EndIf
;==================================================CallSoft KAMPAGNE EDIT TRIGGER ENDE================================================
;===================================================================================================================================
#EndRegion Kampagne Edit Trigger
#Region Neue Kampagne Trigger
;==================================================CallSoft KAMPAGNE NEU TRIGGER======================================================
;===================================================================================================================================
Case $NewKSubCombo1 ;nur bei Änderung der Combo sonst flackert die GUI
If GUICtrlRead($NewKSubCombo1) = "Täglich" Then
GUICtrlSetData($NewKSubCombo2, "", "")
GUICtrlSetState($NewKSubCombo2, $GUI_DISABLE)
ElseIf GUICtrlRead($NewKSubCombo1) = "Wöchentlich" Then
GUICtrlSetState($NewKSubCombo2, $GUI_ENABLE)
GUICtrlSetData($NewKSubCombo2, "", "")
GUICtrlSetData($NewKSubCombo2, "Montag|Dienstag|Mittwoch|Donnerstag|Freitag|Samstag|Sonntag", "Montag")
ElseIf GUICtrlRead($NewKSubCombo1) = "Monatlich" Then
GUICtrlSetData($NewKSubCombo2, "", "")
GUICtrlSetState($NewKSubCombo2, $GUI_DISABLE)
EndIf
Case $NewKSubButton2 ; Ok wird gedrückt
$NewKSub14 = GUICtrlRead($NewKSubKampagnenname)
$NewKSub0 = GUICtrlRead($NewKSubFTPPfadNew)
$NewKSub1 = GUICtrlRead($NewKSubKampagneku)
$NewKSub2 = GUICtrlRead($NewKSubSaveplaceNew)
$NewKSub3 = GUICtrlRead($NewKSubCombo1)
$NewKSub4 = GUICtrlRead($NewKSubCombo2)
$NewKSub5 = GUICtrlRead($NewKSubKampagnenspalte)
$NewKSub6 = GUICtrlRead($NewKSubRufnummerspalte)
$NewKSub7 = GUICtrlRead($NewKSubKundennummerspalte)
$NewKSub8 = GUICtrlRead($NewKSubDatumspalte)
$NewKSub9 = GUICtrlRead($NewKSubVoicefilespalte)
$NewKSub10 = GUICtrlRead($NewKSubUhrzeitspalte)
$NewKSub11 = GUICtrlRead($NewKSubOptinspalte)
$NewKSub12 = GUICtrlRead($NewKSubRadio1) ; =4 nicht ausgewählt, =1 ausgewählt
$NewKSub13 = GUICtrlRead($NewKSubRadio2) ; =4 nicht ausgewählt, =1 ausgewählt
$NewKSubInifilecheck = FileExists("campaign.ini")
If $NewKSubInifilecheck = 1 Then
IniWriteSection("campaign.ini", $NewKSub14, "FTP-Pfad = " & $NewKSub0 & @LF & "Kampagnenkürzel = " & $NewKSub1 & @LF & "Speicherort = " & $NewKSub2 & @LF & "Rücklieferung = " & $NewKSub3 & @LF & "R-Zusatz = " & $NewKSub4 & @LF & "Kampagnenspalte = " & $NewKSub5 & @LF & "Rufnummerspalte = " & $NewKSub6 & @LF & "Kundennummerspalte = " & $NewKSub7 & @LF & "Datumspalte = " & $NewKSub8 & @LF & "Voicefilespalte = " & $NewKSub9 & @LF & "Uhrzeitspalte = " & $NewKSub10 & @LF & "Optinspalte = " & $NewKSub11 & @LF & "Wavformat = " & $NewKSub12 & @LF & "Mp3format = " & $NewKSub13)
Else
_FileCreate("campaign.ini")
IniWriteSection("campaign.ini", $NewKSub14, "FTP-Pfad = " & $NewKSub0 & @LF & "Kampagnenkürzel = " & $NewKSub1 & @LF & "Speicherort = " & $NewKSub2 & @LF & "Rücklieferung = " & $NewKSub3 & @LF & "R-Zusatz = " & $NewKSub4 & @LF & "Kampagnenspalte = " & $NewKSub5 & @LF & "Rufnummerspalte = " & $NewKSub6 & @LF & "Kundennummerspalte = " & $NewKSub7 & @LF & "Datumspalte = " & $NewKSub8 & @LF & "Voicefilespalte = " & $NewKSub9 & @LF & "Uhrzeitspalte = " & $NewKSub10 & @LF & "Optinspalte = " & $NewKSub11 & @LF & "Wavformat = " & $NewKSub12 & @LF & "Mp3format = " & $NewKSub13)
EndIf
GUICtrlSetData($NewKSubFTPPfadNew, "")
GUICtrlSetData($NewKSubKampagneku, "")
GUICtrlSetData($NewKSubSaveplaceNew, "")
GUICtrlSetData($NewKSubCombo1, "")
GUICtrlSetData($NewKSubCombo1, "Täglich|Wöchentlich|Monatlich", "Täglich")
GUICtrlSetData($NewKSubCombo2, "")
GUICtrlSetData($NewKSubKampagnenspalte, "")
GUICtrlSetData($NewKSubRufnummerspalte, "")
GUICtrlSetData($NewKSubKundennummerspalte, "")
GUICtrlSetData($NewKSubDatumspalte, "")
GUICtrlSetData($NewKSubVoicefilespalte, "")
GUICtrlSetData($NewKSubUhrzeitspalte, "")
GUICtrlSetData($NewKSubOptinspalte, "")
GUICtrlSetState($NewKSubRadio1, $GUI_CHECKED)
GUICtrlSetState($NewKSubRadio2, $GUI_UNCHECKED)
;~ GUIDelete ($KampNew)
GUISetState(@SW_HIDE, $NewKSubKampNew)
GUISetState(@SW_SHOW, $CallSoftConfig)
;~ GUISetState(@SW_SHOW, $CallSoftConfig)
Case $NewKSubButton1 ; Abbrechen wurde gedrückt
GUICtrlSetData($NewKSubFTPPfadNew, "")
GUICtrlSetData($NewKSubKampagneku, "")
GUICtrlSetData($NewKSubSaveplaceNew, "")
GUICtrlSetData($NewKSubCombo1, "")
GUICtrlSetData($NewKSubCombo1, "Täglich|Wöchentlich|Monatlich", "Täglich")
GUICtrlSetData($NewKSubCombo2, "")
GUICtrlSetData($NewKSubKampagnenspalte, "")
GUICtrlSetData($NewKSubRufnummerspalte, "")
GUICtrlSetData($NewKSubKundennummerspalte, "")
GUICtrlSetData($NewKSubDatumspalte, "")
GUICtrlSetData($NewKSubVoicefilespalte, "")
GUICtrlSetData($NewKSubUhrzeitspalte, "")
GUICtrlSetData($NewKSubOptinspalte, "")
GUICtrlSetState($NewKSubRadio1, $GUI_CHECKED)
GUICtrlSetState($NewKSubRadio2, $GUI_UNCHECKED)
GUISetState(@SW_HIDE, $NewKSubKampNew)
GUISetState(@SW_SHOW, $CallSoftConfig)
;==================================================CallSoft KAMPAGNE NEU TRIGGER ENDE=================================================
;===================================================================================================================================
#EndRegion Neue Kampagne Trigger
Case $Voiceformatitem
GUISetState($VoiceformatGUI, @SW_SHOW)
EndSwitch
WEnd
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<GUI TRIGGER ENDE>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
#EndRegion Trigger
Die Funktion um die Checkboxen zu erstellen habe ich aus dem Beitrag, den oh-ha geschireben hat übernommen und etwas umgeschrieben. Die Ini Dateien kannst du erstellen wenn du oben im Menu auf Kampagne hinzufügen klickst, das Menu mit den Checkboxen unter Datei > Starten
-- Hier noch 2 Funktionen, die ich ausgelagert hatte aber fürs GUI gebraucht werden
Func Saveall()
$IPAddressIni = GUICtrlRead($IPAddress)
IniWrite("settings.ini", "Save", "IPAdresse", $IPAddressIni)
$WebadresseIni = GUICtrlRead($Webadresse)
IniWrite("settings.ini", "Save", "Webadresse", $WebadresseIni)
$FTPUserIni = GUICtrlRead($FTPUser)
IniWrite("settings.ini", "Save", "FTPUser", $FTPUserIni)
$PasswordIni = GUICtrlRead($Password)
$Passencrypt = _StringEncrypt(1, $PasswordIni, "Pass", 2)
IniWrite("settings.ini", "Save", "Password", $Passencrypt)
$ExcelPfadIni = GUICtrlRead($Input1)
IniWrite("settings.ini", "Save", "ExcelPfad", $ExcelPfadIni)
$VoicePfadIni = GUICtrlRead($Input2)
IniWrite("settings.ini", "Save", "VoicePfad", $VoicePfadIni)
$ExcelformatIni = GUICtrlRead($Excelformat)
IniWrite("settings.ini", "Save", "ExcelFormat", $ExcelformatIni)
$VoiceformatIni = GUICtrlRead($Voiceformat)
IniWrite("settings.ini", "Save", "Voiceformat", $VoiceformatIni)
EndFunc ;==>Saveall
Func Changecheck()
$Changecheck = 0
$WebadresseIni = GUICtrlRead($Webadresse)
$IPAddressIni = GUICtrlRead($IPAddress)
$FTPUserIni = GUICtrlRead($FTPUser
$PasswordIni = GUICtrlRead($Password)
$ExcelPfadIni = GUICtrlRead($Input1)
$VoicePfadIni = GUICtrlRead($Input2)
$ExcelformatIni = GUICtrlRead($Excelformat)
$VoiceformatIni = GUICtrlRead($Voiceformat)
If $IPAddressIni <> IniRead("settings.ini", "Save", "IPAdresse", "NotFound") Then
$Changecheck = 1
ElseIf $WebadresseIni <> IniRead("settings.ini", "Save", "Webadresse", "NotFound") Then
$Changecheck = 1
ElseIf $FTPUserIni <> IniRead("settings.ini", "Save", "FTPUser", "NotFound") Then
$Changecheck = 1
ElseIf $PasswordIni <> _StringEncrypt(0, IniRead("settings.ini", "Save", "Password", "NotFound"), "Pass", 2) Then
$Changecheck = 1
ElseIf $ExcelPfadIni <> IniRead("settings.ini", "Save", "ExcelPfad", "NotFound") Then
$Changecheck = 1
ElseIf $VoicePfadIni <> IniRead("settings.ini", "Save", "VoicePfad", "NotFound") Then
$Changecheck = 1
ElseIf $ExcelformatIni <> IniRead("settings.ini", "Save", "ExcelFormat", "NotFound") Then
$Changecheck = 1
ElseIf $VoiceformatIni <> IniRead("settings.ini", "Save", "Voiceformat", "NotFound") Then
$Changecheck = 1
EndIf
EndFunc ;==>Changecheck
In dem Script gibt es mehrere GUI´s (bis jetzt 6 Stück), diese werden direkt von anfang an geladen und mit GUISetState versteckt bis aufs HauptGUI und nur wenn die jeweiligen Buttons aufgerufen werden, werden die anderen GUI´s angezeigt. Die Ini´s sind dabei ja relativ egal, sie verändern sich, mit dem Inhalt hat es ja (noch) nichts zu tun
Ich hab eine Frage dazu, und zwar nutze ich das Variable anzeigen von den Checkboxen so:
Global $aCheckbox[1], $iLeft = 30, $iTop = 60, $iLeftOffset, $iTopOffset = -20
$aIni = IniReadSectionNames("campaign.ini")
If $aIni[0] <= 30 Then
$Kampagnechoose = GUICreate("Kampagnenauswahl", 290, 400, 243, 166, $WS_CAPTION, -1)
$KampchooseLabel1 = GUICtrlCreateLabel("Kampagnen auswählen", 0, 0, 264, 31, $SS_CENTER)
GUICtrlSetFont($KampchooseLabel1, 14, 800, 0, "MS Sans Serif")
$Kampchoosestart = GUICtrlCreateButton("Starten", 160, 352, 97, 33, $WS_GROUP)
$KampChooseCancel = GUICtrlCreateButton("Abbrechen", 176, 360, 105, 33, $WS_GROUP)
ReDim $aCheckbox[$aIni[0]]
For $i = 1 To $aIni[0]
If IsInt($i / 16) Then
$iLeftOffset += 130
$iTopOffset = 0
Else
$iTopOffset += 20
EndIf
$aCheckbox[$i - 1] = GUICtrlCreateCheckbox($aIni[$i], $iLeft + $iLeftOffset, $iTop + $iTopOffset, 120, 17, $WS_BORDER )
Next
ElseIf 30 < $aIni[0] < 60 Then
$Kampagnechoose = GUICreate("Kampagnenauswahl", 560, 700, 243, 166, $WS_CAPTION, -1)
$KampchooseLabel1 = GUICtrlCreateLabel("Kampagnen auswählen", 0, 0, 264, 31, $SS_CENTER)
GUICtrlSetFont($KampchooseLabel1, 14, 800, 0, "MS Sans Serif")
$Kampchoosestart = GUICtrlCreateButton("Starten", 224, 664, 97, 33, $WS_GROUP)
$KampChooseCancel = GUICtrlCreateButton("Abbrechen", 320, 664, 97, 33, $WS_GROUP)
ReDim $aCheckbox[$aIni[0]]
For $i = 1 To $aIni[0]
If IsInt($i / 31) Then
$iLeftOffset += 130
$iTopOffset = 0
Else
$iTopOffset += 20
EndIf
$aCheckbox[$i - 1] = GUICtrlCreateCheckbox($aIni[$i], $iLeft + $iLeftOffset, $iTop + $iTopOffset, 120, 17, $WS_BORDER)
Next
EndIf
Allerdings wird die Datei campaign.ini auch über ein anderes TeilGUI verändert, die Variablen werden aber bereits beim Start berechnet. Wenn der Benutzer also eine neue Kampagne hinzufügt oder eine bestehende verändert und somit auch die campaign.ini Datei, wird diese Veränderung nicht mehr angezeigt sondern die Werte beim Programmstart.
Kann jemand helfen ?
Danke euch beiden, bin weiter gekommen
TheLuBu
--EDIT--
Ich hab eine Frage dazu, und zwar nutze ich das Variable anzeigen von den Checkboxen so:
Global $aCheckbox[1], $iLeft = 30, $iTop = 60, $iLeftOffset, $iTopOffset = -20
$aIni = IniReadSectionNames("campaign.ini")
If $aIni[0] <= 30 Then
$Kampagnechoose = GUICreate("Kampagnenauswahl", 290, 400, 243, 166, $WS_CAPTION, -1)
$KampchooseLabel1 = GUICtrlCreateLabel("Kampagnen auswählen", 0, 0, 264, 31, $SS_CENTER)
GUICtrlSetFont($KampchooseLabel1, 14, 800, 0, "MS Sans Serif")
$Kampchoosestart = GUICtrlCreateButton("Starten", 160, 352, 97, 33, $WS_GROUP)
$KampChooseCancel = GUICtrlCreateButton("Abbrechen", 176, 360, 105, 33, $WS_GROUP)
ReDim $aCheckbox[$aIni[0]]
For $i = 1 To $aIni[0]
If IsInt($i / 16) Then
$iLeftOffset += 130
$iTopOffset = 0
Else
$iTopOffset += 20
EndIf
$aCheckbox[$i - 1] = GUICtrlCreateCheckbox($aIni[$i], $iLeft + $iLeftOffset, $iTop + $iTopOffset, 120, 17, $WS_BORDER )
Next
ElseIf 30 < $aIni[0] < 60 Then
$Kampagnechoose = GUICreate("Kampagnenauswahl", 560, 700, 243, 166, $WS_CAPTION, -1)
$KampchooseLabel1 = GUICtrlCreateLabel("Kampagnen auswählen", 0, 0, 264, 31, $SS_CENTER)
GUICtrlSetFont($KampchooseLabel1, 14, 800, 0, "MS Sans Serif")
$Kampchoosestart = GUICtrlCreateButton("Starten", 224, 664, 97, 33, $WS_GROUP)
$KampChooseCancel = GUICtrlCreateButton("Abbrechen", 320, 664, 97, 33, $WS_GROUP)
ReDim $aCheckbox[$aIni[0]]
For $i = 1 To $aIni[0]
If IsInt($i / 31) Then
$iLeftOffset += 130
$iTopOffset = 0
Else
$iTopOffset += 20
EndIf
$aCheckbox[$i - 1] = GUICtrlCreateCheckbox($aIni[$i], $iLeft + $iLeftOffset, $iTop + $iTopOffset, 120, 17, $WS_BORDER)
Next
EndIf
Allerdings wird die Datei campaign.ini auch über ein anderes TeilGUI verändert, die Variablen werden aber bereits beim Start berechnet. Wenn der Benutzer also eine neue Kampagne hinzufügt oder eine bestehende verändert und somit auch die campaign.ini Datei, wird diese Veränderung nicht mehr angezeigt sondern die Werte beim Programmstart.
Kann jemand helfen ?
Hallo liebe Community,
Ich bräuchte wiedereinmal eure Hilfe, da ich bei einem Schritt nicht weiterkomme.
Ich habe ein Script, in welchem Kampagnen erstellt und bearbeitet werden können.
Mit diesen Kampagnen soll jetzt gearbeitet werden, aber der Benutzer soll auswählen können, welche Kampagnen er nutzen möchte.
Ich wollte dies über eine Variable Anzahl von Checkboxen lösen, allerdings komme ich dabei nicht weiter.
hier mal der Teil des Scripts so wie ich ihn mir eigentloich vorgestellt habe:
$Kampagnechoose = GUICreate("Kampagnenauswahl",264, 392, 243, 166, $WS_CAPTION, -1)
$Getcampaign = IniReadSectionNames ( "campaign.ini" )
For $i = 1 To UBound($Getcampaign) -1
$gui & $i = GUICtrlCreateCheckbox( $Getcampaign[$i], 10, 10 + $i +5, 120, 20)
Next
GUISetState(@SW_SHOW)
While 1
WEnd
DIe Kampagnen sind jewiels in einer Section der Inidatei gespeichert, aber eben das erstellen der Variablen Anzahl der Checkboxen klappt nicht.
Falls jemand helfen könnte wäre ich sehr dankbar
TheLuBu
Hallöchen, ich würde gerne ein Script schreiben, welches mir alle Möglichkeiten in ein Logfile schreibt, die man aus einer Anzahl von Buchstaben und/oder Zahlen darstellen kann.
z.B. NECOIR
N, E, C, O, I, R
NE, NC, NO, NI, NR, EN, EC, EO, EI, ER, CN, CE, CO, CI, CR...
usw.
Dabei darf kein Buchstabe doppelt genutzt werden, es muss aber kein existierendes Wort sein, also eine Wörterbuchsuche wie beim Scrabblescript brauche ich nicht.
Kann mir jemand dabei helfen?
TheLuBu
Danke hat funktioniert
wie lässt sich dieser string denn auslesen?
Hallo,
ich weiß nicht ob das hier das richtige Forum dafür ist, ansonsten entschuldige ich mich schonmal dafür. aber ich wusste nicht wo ich es sonst hinschreiben hätte können.
Ich habe ein Programm geschrieben. welches Wav Dateien automatisch herunterlädt und umbenennt. Nun sind aber auch Mp3 Dateien hinzugekommen, das habe ich aber zu spät mitgeteilt bekommen, und die dateien sind jetzt auf der Festplatte mit der Endung .wav. GIbt es eine Möglichkeit, herauszufinden, welche der .wav dateien in wirklichkeit eine Mp3 datei ist?
nur als Tipp, benutz nur eins, entweder "/" oder "\"
Ersetz mal alle / durch \ außer in Zeile 43 natürlich, dann sollte es klappen