Hoffen wir, das sich dieses Mysterium mit dem nächsten Erscheinen des TS löst. Wirklich verstehen kann ich dises vorgehen auch nicht. Ich hoffe nur, das es einen Sinn ergibt, der sich uns bislang nicht erschliesst.
Der TS hat jetzt auf jeden Fall erstmal einen bzw. zwei Ansätze, seine XML auszulesen. Der Rest ergibt sich .... hoffentlich.
Vielleicht ist es für den weiteren Programmablauf sinnvoller, in der ersten Spalte des resultierenden Arrays den Namen des jeweiligen Kunden und in der Zweiten das dazugehörige Array mit dn Pfaden abzulegen. So kann man später auf die Pfade eines spezifischen Kunden über ein ArraySearch in der ersten Spalte zugreifen.
#include <array.au3>
#include <String.au3>
$sXML = '<video>' & @CRLF & _
'<Kunde>Klaus</kunde>' & @CRLF & _
'<Objektnummer>12345</Objektnummer>' & @CRLF & _
'<Objektnummer>54815</Objektnummer>' & @CRLF & _
'</video>' & @CRLF & _
'<video>' & @CRLF & _
'<Kunde>Fritz</kunde>' & @CRLF & _
'<Objektnummer>5677879</Objektnummer>' & @CRLF & _
'</video>' & @CRLF & _
'<video>' & @CRLF & _
'<Kunde>Heinz</kunde>' & @CRLF & _
'<Objektnummer>43567</Objektnummer>' & @CRLF & _
'<Objektnummer>87234</Objektnummer>' & @CRLF & _
'</video>' & @CRLF & _
'<video>' & @CRLF & _
'<Kunde>Peter</kunde>' & @CRLF & _
'<Objektnummer>45678</Objektnummer>' & @CRLF & _
'</video>'
$aResult = StringRegExp($sXML, "<video>(?s)(.*?)</video>", 3, 1)
;_ArrayDisplay($aResult)
Dim $aCustomers[1][2]
[/autoit] [autoit][/autoit] [autoit]For $i = 0 To UBound($aResult) - 1
Dim $aCustomer[1]
Dim $aPaths[1]
$aCustomer = _StringBetween($aResult[$i], "<kunde>", "</kunde>")
ReDim $aCustomers[UBound($aCustomers) + 1][2]
$aCustomers[UBound($aCustomers) - 1][0] = $aCustomer[0]
$aObjects = _StringBetween($aResult[$i], "<Objektnummer>", "</Objektnummer>")
_ArrayConcatenate($aCustomer, $aObjects)
;_ArrayDisplay($aCustomer)
For $j = 1 To UBound($aCustomer) - 1
_ArrayAdd($aPaths, "/" & $aCustomer[0] & "/" & $aCustomer[$j])
Next
;_ArrayDisplay($aPaths)
$aCustomers[UBound($aCustomers) - 1][1] = $aPaths
Next
_ArrayDisplay($aCustomers)
For $i = 1 To UBound($aCustomers) - 1
_ArrayDisplay($aCustomers[$i][1])
Next
Hier mal eine simple Variante, das Ganze mit _StringBetween() ohne XML Wrapper zu lösen.
Am Ende wird ein Array of Arrays mit den einzelnen Pfaden des jeweiligen Kunden erstellt.
#include <array.au3>
#include <String.au3>
$sXML = '<video>' & @CRLF & _
'<Kunde>Klaus</kunde>' & @CRLF & _
'<Objektnummer>12345</Objektnummer>' & @CRLF & _
'<Objektnummer>54815</Objektnummer>' & @CRLF & _
'</video>' & @CRLF & _
'<video>' & @CRLF & _
'<Kunde>Fritz</kunde>' & @CRLF & _
'<Objektnummer>5677879</Objektnummer>' & @CRLF & _
'</video>' & @CRLF & _
'<video>' & @CRLF & _
'<Kunde>Heinz</kunde>' & @CRLF & _
'<Objektnummer>43567</Objektnummer>' & @CRLF & _
'<Objektnummer>87234</Objektnummer>' & @CRLF & _
'</video>' & @CRLF & _
'<video>' & @CRLF & _
'<Kunde>Peter</kunde>' & @CRLF & _
'<Objektnummer>45678</Objektnummer>' & @CRLF & _
'</video>'
$aResult = StringRegExp($sXML, "<video>(?s)(.*?)</video>", 3, 1)
;_ArrayDisplay($aResult)
Dim $aCustomers[1]
[/autoit] [autoit][/autoit] [autoit]For $i = 0 To UBound($aResult) - 1
Dim $aCustomer[1]
Dim $aPaths[1]
$aCustomer = _StringBetween($aResult[$i], "<kunde>", "</kunde>")
$aObjects = _StringBetween($aResult[$i], "<Objektnummer>", "</Objektnummer>")
_ArrayConcatenate($aCustomer, $aObjects)
;_ArrayDisplay($aCustomer)
For $j = 1 To UBound($aCustomer) - 1
_ArrayAdd($aPaths, "/" & $aCustomer[0] & "/" & $aCustomer[$j])
Next
;_ArrayDisplay($aPaths)
ReDim $aCustomers[UBound($aCustomers) + 1]
$aCustomers[UBound($aCustomers) - 1] = $aPaths
Next
For $i = 1 To UBound($aCustomers) - 1
_ArrayDisplay($aCustomers[$i])
Next
Ungetestet aber so sollte es funktionieren.
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.8.1
Author: Keks alias Marco Haberstroh
Script Function:
Läd ausgewählte Standartprogramme wie Java und Flashplayer automatisch runter und installiert diese.
Downloading the choosed programes and installed them.
#ce ----------------------------------------------------------------------------
; Includes
[/autoit] [autoit][/autoit] [autoit]#include <GuiConstantsEx.au3>
#include <GuiButton.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <progressconstants.au3>
#include <windowsconstants.au3>
;Adressen/Adresses
$DJavax86 = "http://javadl.sun.com/webapps/download/AutoDL?BundleId=79063"
$DJavax64 = "1"
$DFlash = "http://get.adobe.com/de/flashplayer/download/?installer=Flash_Player_11_for_Other_Browsers&os=XP&browser_type=Gecko&browser_dist=Firefox&d=McAfee_Security_Scan_Plus_FireFox_Browser&dualoffer=false"
$DReader = "http://get.adobe.com/de/reader/download/?installer=Reader_11.0.03_German_for_Windows&os=XP&browser_type=Gecko&browser_dist=Firefox&d=McAfee_Security_Scan_Plus_FireFox_Browser&dualoffer=false"
$DShock = "http://get.adobe.com/de/shockwave/thankyou/?installer=Shockwave_12.0.3.133_Windows_Slim_Other_Browsers"
$DWinrarx86 = "http://www.winrar.de/dl/wrar420d.exe"
$DWinrarx64 = "http://www.winrar.de/dl/winrar-x64-420d.exe"
$DVLC = "http://get.videolan.org/vlc/2.0.7/win32/vlc-2.0.7-win32.exe"
$DFirefoxx86 = "http://www.mozilla.org/de/firefox/new/#download-fx"
$DFirefoxx64 = "2"
$DDeep = "http://www.deepburner.com/download/DeepBurner1.exe"
;Dateigrößen
$Sizejava86 = Round (InetGetSize($DJavax86)/1024/1024)
$sizejava64 = Round (InetGetSize($DJavax64)/1024/1024,2)
$Sizeflash = Round (InetGetSize($DFlash)/1024/1024,2)
$sizereader = Round (InetGetSize($DReader)/1024/1024,2)
$sizeshock = Round (InetGetSize($DShock)/1024/1024,2)
$sizerar86 = Round (InetGetSize($DWinrarx86)/1024/1024,2)
$sizerar64 = Round (InetGetSize($DWinrarx64)/1024/1024,2)
$sizevlc = Round (InetGetSize($DVLC)/1024/1024,2)
$sizefirefox86 = Round (InetGetSize($DFirefoxx86)/1024/1024,2)
$sizefirefox64 = Round (InetGetSize($DFirefoxx64)/1024/1024,2)
$sizedeep = Round (InetGetSize($DDeep)/1024/1024,2)
;GUI
[/autoit] [autoit][/autoit] [autoit]GUICreate ("Keks Dwler", 350, 300) ;Erstellt GUI/Create a GUI
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateTab (10,10,335,270)
GUICtrlCreateTabItem ("Win XP x86")
$Javaxp = GUICtrlCreateCheckbox ("Java",25,35)
$Flashxp = GUICtrlCreateCheckbox ("Adobe Flashplayer", 25, 55)
$Readerxp = GUICtrlCreateCheckbox ("Adobe Reader", 25, 75)
$Shockxp = GUICtrlCreateCheckbox ("Shockwave Player", 25, 95)
$Winrarxp = GUICtrlCreateCheckbox ("WinRar", 205, 35)
$VLCxp = GUICtrlCreateCheckbox ("VLC Media Player", 205, 55)
$Firefoxxp = GUICtrlCreateCheckbox ("Firefox", 205, 75)
$Deepxp = GUICtrlCreateCheckbox ("Deepburner", 205, 95)
$Prges1 = GUICtrlCreateProgress (25, 135, 300,20)
$Beginn1 = GUICtrlCreateButton ("Beginn", 150, 200)
GUICtrlCreateTabItem ("Win XP x64")
$Javaxp64 = GUICtrlCreateCheckbox ("Java",25,35)
$Flashxp64 = GUICtrlCreateCheckbox ("Adobe Flashplayer", 25, 55)
$Readerxp64 = GUICtrlCreateCheckbox ("Adobe Reader", 25, 75)
$Shockxp64 = GUICtrlCreateCheckbox ("Shockwave Player", 25, 95)
$Winrarxp64 = GUICtrlCreateCheckbox ("WinRar", 205, 35)
$VLCxp64 = GUICtrlCreateCheckbox ("VLC Media Player", 205, 55)
$Firefoxxp64 = GUICtrlCreateCheckbox ("Firefox", 205, 75)
$Deepxp64 = GUICtrlCreateCheckbox ("Deepburner", 205, 95)
$Prges2 = GUICtrlCreateProgress (25, 135, 300,20)
$Beginn2 = GUICtrlCreateButton ("Beginn", 150, 200)
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateTabItem ("Win7 x86")
$Java7 = GUICtrlCreateCheckbox ("Java",25,35)
$Flash7 = GUICtrlCreateCheckbox ("Adobe Flashplayer", 25, 55)
$Reader7 = GUICtrlCreateCheckbox ("Adobe Reader", 25, 75)
$Shock7 = GUICtrlCreateCheckbox ("Shockwave Player", 25, 95)
$Winrar7 = GUICtrlCreateCheckbox ("WinRar", 205, 35)
$VLC7 = GUICtrlCreateCheckbox ("VLC Media Player", 205, 55)
$Firefox7 = GUICtrlCreateCheckbox ("Firefox", 205, 75)
$Deep7 = GUICtrlCreateCheckbox ("Deepburner", 205, 95)
$Prges3 = GUICtrlCreateProgress (25, 135, 300,20)
$Beginn3 = GUICtrlCreateButton ("Beginn", 150, 200)
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateTabItem ("Win7 x64")
$Javax64 = GUICtrlCreateCheckbox ("Java",25,35)
$Flashx64 = GUICtrlCreateCheckbox ("Adobe Flashplayer", 25, 55)
$Readerx64 = GUICtrlCreateCheckbox ("Adobe Reader", 25, 75)
$Shockx64 = GUICtrlCreateCheckbox ("Shockwave Player", 25, 95)
$Winrarx64 = GUICtrlCreateCheckbox ("WinRar", 205, 35)
$VLCx64 = GUICtrlCreateCheckbox ("VLC Media Player", 205, 55)
$Firefoxx64 = GUICtrlCreateCheckbox ("Firefox", 205, 75)
$Deepx64 = GUICtrlCreateCheckbox ("Deepburner", 205, 95)
$Prges4 = GUICtrlCreateProgress (25, 135, 300,20)
$Beginn4 = GUICtrlCreateButton ("Beginn", 150, 200)
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW) ; Zum Anzeigen der GUI nötig/Show GUI
;Button Befehle
While 1
Switch GUIGetMsg ()
case $GUI_EVENT_CLOSE
Exit
case $Beginn1
xpCheck()
Case $Beginn2
xp64Check()
Case $Beginn3
Win7Check()
Case $Beginn4
Win764Check()
EndSwitch
WEnd
;checkbefehl ob überhaupt was markiert wurde
func XPCheck()
if GUICtrlRead($Javaxp) =4 and GUICtrlRead($Flashxp) =4 And GUICtrlRead($Readerxp)=4 and GUICtrlRead($Shockxp)=4 and GUICtrlRead($Winrarxp)=4 and GUICtrlRead($VLCxp)=4 and GUICtrlRead($Firefoxxp)=4 and GUICtrlRead($Deepxp)=4 then
MsgBox(1,"Error","Nichts ausgewählt!")
Else
XPx86()
EndIf
EndFunc
Func xp64Check()
if GUICtrlRead($Javaxp64) =4 and GUICtrlRead($Flashxp64) =4 And GUICtrlRead($Readerxp64)=4 and GUICtrlRead($Shockxp64)=4 and GUICtrlRead($Winrarxp64)=4 and GUICtrlRead($VLCxp64)=4 and GUICtrlRead($Firefoxxp64)=4 and GUICtrlRead($Deepxp64)=4 then
MsgBox(1,"Error","Nichts ausgewählt!")
Else
xpx64()
EndIf
EndFunc
Func Win7Check()
if GUICtrlRead($Java7) =4 and GUICtrlRead($Flash7) =4 And GUICtrlRead($Reader7)=4 and GUICtrlRead($Shock7)=4 and GUICtrlRead($Winrar7)=4 and GUICtrlRead($VLC7)=4 and GUICtrlRead($Firefox7)=4 and GUICtrlRead($Deep7)=4 then
MsgBox(1,"Error","Nichts ausgewählt!")
Else
win7()
EndIf
EndFunc
Func Win764Check()
if GUICtrlRead($Javax64) =4 and GUICtrlRead($Flashx64) =4 And GUICtrlRead($Readerx64)=4 and GUICtrlRead($Shockx64)=4 and GUICtrlRead($Winrarx64)=4 and GUICtrlRead($VLCx64)=4 and GUICtrlRead($Firefoxx64)=4 and GUICtrlRead($Deepx64)=4 then
MsgBox(1,"Error","Nichts ausgewählt!")
Else
Win764()
EndIf
EndFunc
;Hauptfunktionen
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]func XPx86()
$1 = GUICtrlRead($Javaxp)
$2 = GUICtrlRead($Deepxp)
If GUICtrlRead($Javaxp) =1 Then
$hDL= InetGet($DJavax86,@ScriptDir&"\java.exe",1,1)
MsgBox(1,"Download gestartet","djkal")
For $Info = Round (FileGetSize("java.exe")/1024/1024) To $Sizejava86
$ipercent = Round($Sizejava86/100 * $info)
ConsoleWrite($ipercent & @LF)
GUICtrlSetData($Prges1,$ipercent)
sleep (1000)
Next
InetClose($hDL)
Else
MsgBox(1,"fehler",$2)
EndIf
EndFunc
Func xpx64()
MsgBox(1,"hallo","hallo")
EndFunc
func win7()
msgbox(1,"hallo","hallo")
EndFunc
func win764()
msgbox(1,"hallo","hallo")
EndFunc
Wo steht eigentlich geschrieben, das hier jeder ein ihm von Gott gegebenes Recht auf konkrete Hilfe hat?
Das ist ein Forum.... auf freiwilliger Basis eröffnet.... durch freiwillige Helfer mit Leben gefüllt. Wenn es dir nicht passt, das dir hier niemand eine fertige Lösung auf dem Silbertablett präsentiert oder wir dir einfach zu langsam sind, dann frag einfach nichts.
Jeder hier hat auch ein Privatleben. Wenn du nicht bereit bist das zu akzeptieren, dann heuer dir einen von uns gegen ein kleines Entgelt an. Dann bekommst du sicher auch das, was du erwatest. Dafür gibt es übrigens auch ein passendes Unterforum.
Nicht den Thread sollte man löschen sondern für diese dummdreiste Aussage deinen Account sperren.
*** sent from a paranoid nexus 4 with some Tapatalk inside ***
Und zu der Frage, ob ein beispiel gegeben werden muss? Ich denke da werden die meisten zustimmen, dasss sich so ein Vorhaben besser beschreiben lässt.
Nein, muss es eben nicht! Ein konkreter Anwendungsfall ist tausend mal mehr wert, als ein notdürftig zusammengebastelter "wie zum Beispielwenn ich xyz machen wollte" Quark.
Nochmal für die ganz Dummen unter uns bitte - welche Datei (Typ) geladen in was (Programm)?
Das "Beispiel" wurde im Gegensatz zur zu verwendenden Website deshalb angegeben, weil seitens des TE schon im Vorfeld feststand, dass beim Nennen der zu automatisierenden Website der Thread SOFORT mit Verweis auf die AGB geschlossen wird.
Ungefähr das wollte ich damit ausdrücken 
Er braucht kein Beispiel zu geben. SChon garnicht ebay.
Ein konkreter Anwendungsfall reicht aus!
Wenn Praxiserfahrung und gute Kenntnisse im Umgang mit CodeIgniter vorhanden sind, könnte ich zu gegebener Zeit darauf zurück kommen.
*** I am a paranoid nexus 4 with some tapatalk inside ***
@rynow; nur wenn es dir gelingt Zugriff auf meine Kellerkiste zu erlangen.
Und nu back to topic
*** I am a paranoid nexus 4 with some tapatalk inside ***
und mittlerweile wird nicht mehr dran gearbeitet was ich recht schade finde.
work in progress.... day 3
I am a paranoid nexus 4 with some tapatalk inside
Nein nein... Er meint schon das Übersetzungsportal, nicht die Onlinehilfe 
I am a paranoid nexus 4 with some tapatalk inside
;===============================================================================
;
; AutoIt Version: 3.2.3.0
; Language: English
; Description: Dll wrapper functions for dealing with Unix timestamps.
; Requirement(s): CrtDll.dll
; Notes: If CrtDll.dll is not available then functions will return false
; and set @error = 99.
;
;===============================================================================
;===============================================================================
;
; Description: _TimeGetStamp - Get current time as Unix timestamp value.
; Parameter(s): None
; Return Value(s): On Success - Returns Unix timestamp
; On Failure - Returns False, sets @error = 99
; Author(s): Rob Saunders ([email='admin@therks.com'][/email])
; User Calltip: _TimeGetStamp() - Get current time as Unix timestamp value. (required: <_UnixTime.au3>)
;
;===============================================================================
Func _TimeGetStamp()
Local $av_Time
$av_Time = DllCall('CrtDll.dll', 'long:cdecl', 'time', 'ptr', 0)
If @error Then
SetError(99)
Return False
EndIf
Return $av_Time[0]
EndFunc
;===============================================================================
;
; Description: _TimeMakeStamp - Create Unix timestamp from input values.
; Syntax: _TimeMakeStamp( [ second [, minute [, hour [, day [, month [, year [, isDST ]]]]]]] )
; Parameter(s): Second - Second for timestamp (0 - 59)
; Minute - Minute for timestamp (0 - 59)
; Hour - Hour for timestamp (0 - 23)
; Day - Day for timestamp (1 - 31)
; Month - Month for timestamp (1 - 12)
; Year - Year for timestamp (1970 - 2038)
; * All the above values default to the 'Default' keyword, where the current
; time/date value will be used.
; IsDST - Set to 1 during Daylight Saving Time (DST)
; - Set to 0 not during DST
; - Set to -1 if unknown, function will try to figure it out
; - Default is -1
; Return Value(s): On Success - Returns Unix timestamp
; On Failure - Parameter error, returns -1
; - Dll error, returns False, sets @error = 99
; Notes: The function will try and calculate dates for numbers outside of the
; usual range.
; For example: _TimeMakeStamp(0, 0, 0, 32, 1, 1995)
; 32nd day of January? Obviously that's not a valid date, but the function
; automatically calculates this to be February 1st. A date of 0 will return
; the last day of the previous month.
; User CallTip: _TimeMakeStamp($i_Sec = Default, $i_Min = Default, $i_Hour = Default, $i_Day = Default, $i_Mon = Default, $i_Year = Default, $i_IsDST = -1) - Create a UNIX timestamp from input values. (required: <_UnixTime.au3>)
; Author(s): Rob Saunders ([email='admin@therks.com'][/email])
;
;===============================================================================
Func _TimeMakeStamp($i_Sec = Default, $i_Min = Default, $i_Hour = Default, $i_Day = Default, $i_Mon = Default, $i_Year = Default, $i_IsDST = -1)
Local $struct_Time, $ptr_Time, $av_Time
$struct_Time = DllStructCreate('uint;uint;uint;uint;uint;uint;uint;uint;uint')
Select
Case $i_Sec = Default
$i_Sec = @SEC
ContinueCase
Case $i_Min = Default
$i_Min = @MIN
ContinueCase
Case $i_Hour = Default
$i_Hour = @HOUR
ContinueCase
Case $i_Day = Default
$i_Day = @MDAY
ContinueCase
Case $i_IsDST = Default
$i_IsDST = -1
EndSelect
; The following is done because the mktime function demands
; that the month be in 0-11 (Jan = 0) format instead of 1-12.
Select
Case $i_Mon = Default
$i_Mon = (@MON - 1)
Case $i_Mon <> Default
$i_Mon -= 1
EndSelect
; The following is done because the mktime function expects the year in format
; (full year - 1900), thus 99 = 1999 and 100 = 2005. The function will try
; to figure out what year the user is trying to use. Thus if the function recieves
; 70, it's untouched, but if the user gives 1970, 1900 is subtracted automatically.
; Any year above 99 has 1900 automatically subtracted.
Select
Case $i_Year = Default
$i_Year = (@YEAR - 1900)
Case $i_Year < 70
$i_Year += 100
Case $i_Year > 99
$i_Year -= 1900
EndSelect
DllStructSetData($struct_Time, 1, $i_Sec)
DllStructSetData($struct_Time, 2, $i_Min)
DllStructSetData($struct_Time, 3, $i_Hour)
DllStructSetData($struct_Time, 4, $i_Day)
DllStructSetData($struct_Time, 5, $i_Mon)
DllStructSetData($struct_Time, 6, $i_Year)
DllStructSetData($struct_Time, 9, $i_IsDST)
$ptr_Time = DllStructGetPtr($struct_Time)
$av_Time = DllCall('CrtDll.dll', 'long:cdecl', 'mktime', 'ptr', $ptr_Time)
If @error Then
SetError(99)
Return False
EndIf
Return $av_Time[0]
EndFunc
;===============================================================================
;
; Description: _StringFormatTime - Get a string representation of a timestamp
; according to the format string given to the function.
; Syntax: _StringFormatTime( "format" [, timestamp [, max length ]] )
; Parameter(s): Format String - A format string to convert the timestamp to.
; See notes for some of the values that can be
; used in this string.
; Timestamp - A timestamp to format, possibly returned from
; _TimeMakeStamp. If left empty, default, or less
; than 0, the current time is used. (default is -1)
; Max Length - Maximum length of the string to be returned.
; Default is 255.
; Return Value(s): On Success - Returns string formatted timestamp.
; On Failure - Returns False, sets @error = 99
; Requirement(s): _TimeGetStamp
; Notes: The date/time specifiers for the Format String:
; %a - Abbreviated weekday name (Fri)
; %A - Full weekday name (Friday)
; %b - Abbreviated month name (Jul)
; %B - Full month name (July)
; %c - Date and time representation (MM/DD/YY hh:mm:ss)
; %d - Day of the month (01-31)
; %H - Hour in 24hr format (00-23)
; %I - Hour in 12hr format (01-12)
; %j - Day of the year (001-366)
; %m - Month number (01-12)
; %M - Minute (00-59)
; %p - Ante meridiem or Post Meridiem (AM / PM)
; %S - Second (00-59)
; %U - Week of the year, with Sunday as the first day of the week (00 - 53)
; %w - Day of the week as a number (0-6; Sunday = 0)
; %W - Week of the year, with Monday as the first day of the week (00 - 53)
; %x - Date representation (MM/DD/YY)
; %X - Time representation (hh:mm:ss)
; %y - 2 digit year (99)
; %Y - 4 digit year (1999)
; %z, %Z - Either the time-zone name or time zone abbreviation, depending on registry settings; no characters if time zone is unknown
; %% - Literal percent character
; The # character can be used as a flag to specify extra settings:
; %#c - Long date and time representation appropriate for current locale. (ex: "Tuesday, March 14, 1995, 12:41:29")
; %#x - Long date representation, appropriate to current locale. (ex: "Tuesday, March 14, 1995")
; %#d, %#H, %#I, %#j, %#m, %#M, %#S, %#U, %#w, %#W, %#y, %#Y - Remove leading zeros (if any).
;
; User CallTip: _StringFormatTime($s_Format, $i_Timestamp = -1, $i_MaxLen = 255) - Get a string representation of a timestamp according to the format string given to the function. (required: <_UnixTime.au3>)
; Author(s): Rob Saunders ([email='admin@therks.com'][/email])
;
;===============================================================================
Func _StringFormatTime($s_Format, $i_Timestamp = -1, $i_MaxLen = 255)
Local $struct_Time, $ptr_Time, $av_Time, $av_StrfTime
If $i_Timestamp = default OR $i_Timestamp < 0 Then
$i_Timestamp = _TimeGetStamp()
EndIf
$ptr_Time = DllCall('CrtDll.dll', 'ptr:cdecl', 'localtime', 'long*', $i_Timestamp)
If @error Then
SetError(99)
Return False
EndIf
$av_StrfTime = DllCall('CrtDll.dll', 'int:cdecl', 'strftime', _
'str', '', _
'int', $i_MaxLen, _
'str', $s_Format, _
'ptr', $ptr_Time[0])
Return $av_StrfTime[1]
EndFunc
Nun gut. Da wurde bereits der Token bezogen und Cookies gesetzt. Von daher ist das mehr oder weniger ein "ich bin noch da" als ein echter login.
Ich schau vieleicht nachher nochmal, ob ich die login Klasse des vb finde. Oder den alten Thread.
Also erstens : Du willst uns doch jetzt nicht etwa erzählen, das du dich mit einem Klartext Passwort auf der Seite anmelden konntest.
Zwetens: Die Login Prozedur für ein vb Board habe ich hier schon irgendwo mal in einem H&Ü Thread erstellt. Die Forensuche sollte helfen.
Das Problem könnte sein, das es sich hier nicht um einen simplen md5 hash handelt sondern um einen salted oder double salted hash. Aber dafur müsste man dann schon wissen, für welches Forum das Ganze gedacht ist.
Allein schon um den Forenregeln gerecht zu werden.
$foo = True
if $foo = True Then
MsgBox(0,"", "Mach was")
MsgBox(0,"", "mach noch was")
endif
If @MIN=00 then ... ergibt nunmal im Idealfall eine Minute lang TRUE. Also führt er auch die dazugehörige Aktion die gesamte Minute immer und immer wieder aus.
Versuch dich mal an einem Timer. Einen Anfang findest du in der Hilfe bei TimerInit()
