Beiträge von Eddy_Erpel

;Function to return IP Address from a connected socket.
;----------------------------------------------------------------------
Func SocketToIP($SHOCKET)
Local $sockaddr = DLLStructCreate("short;ushort;uint;char[8]")

Local $aRet = DLLCall("Ws2_32.dll","int","getpeername","int",$SHOCKET, _
"ptr",DLLStructGetPtr($sockaddr),"int_ptr",DLLStructGetSize($sockaddr))
If Not @error And $aRet[0] = 0 Then
$aRet = DLLCall("Ws2_32.dll","str","inet_ntoa","int",DLLStructGetData($sockaddr,3))
If Not @error Then $aRet = $aRet[0]
Else
$aRet = 0
EndIf

$sockaddr = 0

Return $aRet
EndFunc

#include <GUIConstants.au3>
;~ Autor: Vinschni
$Form1_1 = GUICreate("Mondkalenderrechner 1.0", 371, 171, 193, 115)
GUISetBkColor(0xA0A0A4)
$Label1 = GUICtrlCreateLabel("Jahr im Gregorianischen Kalender", 8, 8, 162, 17)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Gregorianzahlinput = GUICtrlCreateInput("", 8, 24, 169, 21)
$Label2 = GUICtrlCreateLabel("Jahr im Islamischen/Mondkalender", 8, 56, 168, 17)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$Mondzahlinput= GUICtrlCreateInput("", 8, 72, 169, 21)
$Ergebnisanzeige = GUICtrlCreateEdit("", 184, 56, 169, 73, $ES_AUTOVSCROLL + $WS_VSCROLL+ $ES_READONLY)
$Umrechnen = GUICtrlCreateButton("Umrechnen", 8, 104, 169, 25, 0)
;;$Checkbox1 = GUICtrlCreateCheckbox("Exakte Werte ausgeben", 184, 24, 145, 25)
GUICtrlSetBkColor(-1, 0xA0A0A4)
$MenuItem1 = GUICtrlCreateMenu("&Datei")
$ExakteWerte = GUICtrlCreateMenuitem("Exakte Werte Ausgeben",$MenuItem1)
$Beenden = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenu("&Info")
$Hilfe = GUICtrlCreateMenuItem("Hilfe", $MenuItem4)
$Info= GUICtrlCreateMenuItem("Info", $MenuItem4)
GUISetState(@SW_SHOW)

While 1
$msg = GuiGetMsg()
Select

Case $msg = $Umrechnen
eingabeprufen()

Case $msg = $Beenden
Exit

Case $msg = $Hilfe
MsgBox(0, "Hilfe", "Der Mondkalenderrechner dient dazu Jahreszahlen aus dem Mondkalender(oder Islamischen Kalender) in den Gregorianischen Kalender(oder Christlichen Kalender) umzuwandeln und umgekehrt." & @CRLF & @CRLF & "Wenn sie eine Jahreszahl aus dem Mondkalender in eine des Gregorianischen Kalenders umwandeln möchten" & @CRLF &"geben sie die bekannte Jahreszahl des Mondkalenders im dazugehörigen Eingabefeld ein" & @CRLF & "und klicken dann auf <Umrechnen>. Genauso müssen sie verfahren wenn die eine Jahreszahl des Gregorianischen Kalendern in eine des Mondkalenders umrechnen wollen." & @CRLF & @CRLF & "Unter <Optionen> können sie einstellen dass die ungerundeten Näherungswerte ausgegeben werden," & @CRLF & "wie sie vom Programm errechnet wurden.")

Case $msg = $Info
MsgBox(64, "Info", "Beschreibung: Der Mondkalenderrechner dient dazu Jahreszahlen aus dem Mondkalender(oder Islamischen Kalender)" & @CRLF & " in den Gregorianischen Kalender(oder Christlichen Kalender) umzuwandeln und umgekehrt." & @CRLF & @CRLF & "Autor: Vinschni")

Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $ExakteWerte
GUICtrlSetState($ExakteWerte,3*BitAnd(GUICtrlRead($ExakteWerte),$GUI_CHECKED)+1)
Case Else

EndSelect
WEnd
Exit

Func eingabeprufen()
If GUICtrlRead($Mondzahlinput) <> "" and GUICtrlRead($Gregorianzahlinput) <> "" Then
MsgBox(16,"Error", "Bitte geben sie nur in ein Jahreszahlenfeld eine Jahreszahl ein !")
ElseIf GUICtrlRead($Mondzahlinput) <> "" and GUICtrlRead($Gregorianzahlinput) = "" Then
JahrumrechnenMondzuGregorian()
ElseIf GUICtrlRead($Gregorianzahlinput) <> "" and GUICtrlRead($Mondzahlinput) = "" Then
JahrumrechnenGregorianzuMond()
EndIf

EndFunc

Func JahrumrechnenMondzuGregorian()
GUICtrlSetData($Ergebnisanzeige,"")
$Monddat = GUICtrlRead($Mondzahlinput)
$Gregoriandatergebnis = Number($Monddat*32/33+622)
If $Monddat = "0" Then
GUICtrlSetData($Ergebnisanzeige, $Monddat & " korrospondiert mit dem Jahr: " & $Gregoriandatergebnis & " im Gregorianischen Kalender.")
ElseIf $Gregoriandatergebnis = "622" and $Monddat <> "0" Then
MsgBox(16, "Error", "Die von ihnen eingegebene Zeichenkette ist keine Jahreszahl!")
Else
If BitAND(GUICtrlRead($ExakteWerte),$GUI_CHECKED) Then
ElseIf BitAND(GUICtrlRead($ExakteWerte),$GUI_UNCHECKED) Then
$Gregoriandatergebnis = Round($Gregoriandatergebnis,0)
EndIf
GUICtrlSetData($Ergebnisanzeige, "Das Jahr " & $Monddat & " im Mondkalender korrospondiert mit dem Jahr " & $Gregoriandatergebnis & " im Gregorianischen Kalender.")
EndIf

EndFunc

Func JahrumrechnenGregorianzuMond()
GUICtrlSetData($Ergebnisanzeige,"")
$Gregoriandat = GUICtrlRead($Gregorianzahlinput)
$Monddatergebnis= Number(33/32*($Gregoriandat-622))
If $Gregoriandat = "0" Then
GUICtrlSetData($Ergebnisanzeige, $Gregoriandat & " korrospondiert mit dem Jahr: " & $Monddatergebnis & " im Gregorianischen Kalender.")
ElseIf $Monddatergebnis = "622" and $Gregoriandat <> "0" Then
MsgBox(16, "Error", "Die von ihnen eingegebene Zeichenkette ist keine Jahreszahl!")
ElseIf $Monddatergebnis = "-641.4375 " and GUICtrlRead($Gregorianzahlinput) <> "0" Then
MsgBox(16, "Error", "Die von ihnen eingegebene Zeichenkette ist keine Jahreszahl!")
Else
If BitAND(GUICtrlRead($ExakteWerte),$GUI_CHECKED) Then
ElseIf BitAND(GUICtrlRead($ExakteWerte),$GUI_UNCHECKED) Then
$Monddatergebnis = Round($Monddatergebnis,0)
EndIf
If $Monddatergebnis < 622 Then
MsgBox(48,"Meldung", "Das von ihnen nach dem Gregorianischen Kalender eingegebene Jahr liegt vor der islamischen Zeitrechnung" & @CRLF & "und wird deshalb mit einem Minus dargestellt!")
GUICtrlSetData($Ergebnisanzeige, "Das Jahr " &$Gregoriandat & " korrospondiert mit dem Jahr " & $Monddatergebnis & " im Gregorianischen Kalender.")
EndIf
GUICtrlSetData($Ergebnisanzeige, "Das Jahr " & $Gregoriandat & " im Mondkalender korrospondiert mit dem Jahr " & $Monddatergebnis & " im Gregorianischen Kalender.")

EndIf
EndFunc

; GUI Reg2Au3 Converter
Global $regsource
Global $regdest


#include <GuiConstants.au3>

GuiCreate("Reg2Au3 Converter", 392, 316,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$Group_1 = GuiCtrlCreateGroup("", 10, 20, 370, 150)
$Label_1 = GuiCtrlCreateLabel("Quelldatei auswählen", 30, 50, 140, 20)
$Input_1 = GuiCtrlCreateInput("", 30, 70, 200, 20)
$Button_1 = GuiCtrlCreateButton("&Durchsuchen...", 260, 70, 100, 20)
$Label_2 = GuiCtrlCreateLabel("Zieldatei auswählen", 30, 110, 120, 20)
$Input_2 = GuiCtrlCreateInput("", 30, 130, 200, 20)
$Button_2 = GuiCtrlCreateButton("&Durchsuchen...", 260, 130, 100, 20)

$Button_OK = GuiCtrlCreateButton("&OK", 280, 280, 80, 20)

GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $Button_1
$regsource = FileOpenDialog("Registrierungsdatei wählen", @MyDocumentsDir, "(*.reg)", 1+4)
ControlSetText("Reg2Au3 Converter", "", $Input_1, $regsource)
Case $msg = $Button_2
$regdest = FileSaveDialog( "Zielpfad wählen", @MyDocumentsDir, "Scripts (*.aut;*.au3)", 2, "RegScript.au3")
ControlSetText("Reg2Au3 Converter", "", $Input_2, $regdest)
; option 2 = dialog remains until valid path/file selected
If @error Then MsgBox(4096,"","Save cancelled.")
Case $msg = $Button_OK
Register()
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case Else
;;;
EndSelect
WEnd

Exit

; Funktion .reg zu .au3
Func Register()

Local $file = FileOpen($regsource, 0)
Local $RegScript = FileOpen($regdest, 2) ; which is similar to 2 + 8 (erase + create dir)
Local $line, $keyname, $value, $value1, $value2


; Check if file opened for reading OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open .reg file.")
Exit
ElseIf $RegScript = -1 Then
MsgBox(0, "Error", "Unable to open RegScript.au3.")
Exit
Else
If $file = -1 And $RegScript = -1 Then
MsgBox(0, "Error", "Unable to open any file.")
Exit
EndIf
EndIf

$RegASCI=StringReplace(FileGetShortName($regsource),".reg",".old")
RunWait(@ComSpec & " /c type " & FileGetShortName($regsource) & ">" & $RegASCI,@MyDocumentsDir)
FileCopy($RegASCI,$regsource,1)
FileDelete($RegASCI)

While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
Local $sPattern, $vResult, $clip, $clip1

$sPattern = "[][]"
$vResult = StringRegExp($line, $sPattern, 1)
If @extended Then
$keyname = StringRegExpReplace($line, $sPattern, '"')
FileWriteLine($RegScript, "RegWrite(" & $keyname & ")")
EndIf
; Success. Pattern matched. $vResult matches @Extended
$sPattern = "(@=)"
$vResult = StringRegExp($line, $sPattern, 1)
If @extended Then
$clip = StringRegExpReplace($line, $sPattern, "")
$value = StringRegExpReplace($clip, "\\\\", "\\", 0)
FileWriteLine($RegScript, "RegWrite(" & $keyname & ', "", "REG_SZ", ' & $value & ")")
EndIf
$sPattern = '("=")'
$vResult = StringRegExp($line, $sPattern, 1)
If @extended Then
$clip1 = StringRegExpReplace($line, "=", ', "REG_SZ", ')
$value1 = StringRegExpReplace($clip1, "\\\\", "\\", 0)
FileWriteLine($RegScript, "RegWrite(" & $keyname & "," & $value1 & ")")
EndIf
$sPattern = "(=dword:)"
$vResult = StringRegExp($line, $sPattern, 1)
If @extended Then
$value2 = StringRegExpReplace($line, "=dword:", ', "REG_DWORD", "')
FileWriteLine($RegScript, "RegWrite(" & $keyname & $value2 & '")')
EndIf
WEnd

FileClose($file)
FileClose($RegScript)



EndFunc