Beiträge von ArtOne

ArtOne

Hallo ich habe ein Programm geschrieben welches das Spiel 'Schere,Stein, Papier' simuliert.
Hat jemand Verbesserungsvorschläge?

Code

#Include <File.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


Global $MeinePunkte = 0
Global $GegnerPunkte = 0


#Region ### START Koda GUI section ### Form=C:\Users\Jessica\Desktop\Kli Kla Klok\Data\GUI_GAME.kxf
$Form1 = GUICreate("SSP - Schere Stein Papier", 443, 334, 261, 210)
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("", 8, 0, 425, 97)
$Label1 = GUICtrlCreateLabel("    LOS GEHT'S", 80, 32, 293, 30)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$SPIELEN = GUICtrlCreateButton("SPIELEN", 16, 104, 411, 49)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$ICHPIC = GUICtrlCreatePic(@ScriptDir&"\Data\START-LINKS.jpg", 0, 160, 204, 164)
GUICtrlSetState(-1, $GUI_DISABLE)
$GEGNERPIC = GUICtrlCreatePic(@ScriptDir&"\Data\START-RECHTS.jpg", 238, 160, 204, 164)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label2 = GUICtrlCreateLabel("ICH", 80, 304, 29, 15)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("GEGNER", 288, 304, 68, 16)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel($MeinePunkte, 10, 154, 37, 20)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel($GegnerPunkte, 398, 154, 37, 20)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $SPIELEN
;~ Papier - 1
;~ Schere - 2
;~ Stein  - 3




#Region /  ICH
;~ ICH - LINKS
Global $FileListICH = _FileListToArray(@ScriptDir & "\Data\ICH", "*.jpg",1)
If (Not @error) And ($FileListICH[0]) Then
;~ MsgBox(0, "ICH", $FileListICH[Random(1, $FileListICH[0],1)])
Global $IchRandom = $FileListICH[Random(1, $FileListICH[0],1)]


;~ Create ICH file
FileDelete(@ScriptDir&"\Data\Save\ICH.ini")
$File = FileWrite(@ScriptDir&"\Data\Save\ICH.ini","Nothing")
_FileWriteToLine(@ScriptDir&"\Data\Save\ICH.ini", 1, $IchRandom, True)


Else
    MsgBox(0, "ICH", "File(s) not found!")
EndIf
#EndRegion


#Region /  GEGNER
;~ GEGNER - RECHTS
Global $FileListGEGNER = _FileListToArray(@ScriptDir & "\Data\GEGNER", "*.jpg",1)
If (Not @error) And ($FileListGEGNER[0]) Then
;~ MsgBox(0, "GEGNER", $FileListGEGNER[Random(1, $FileListGEGNER[0],1)])
Global $GegnerRandom = $FileListGEGNER[Random(1, $FileListGEGNER[0],1)]


;~ Create GEGNER file
FileDelete(@ScriptDir&"\Data\Save\GEGNER.ini")
$File = FileWrite(@ScriptDir&"\Data\Save\GEGNER.ini","Nothing")
_FileWriteToLine(@ScriptDir&"\Data\Save\GEGNER.ini", 1, $GegnerRandom, True)


Else
    MsgBox(0, "GEGNER", "File(s) not found!")
EndIf
#EndRegion


;~ -------------------------------------------------------


#Region / LIES MEINE WAHL


Global $ICH = FileReadLine(@ScriptDir&"\Data\Save\ICH.ini",1)


If $ICH = "1.jpg" Then
GUICtrlSetImage($ICHPIC,@ScriptDir&"\Data\ICH\1.jpg")
EndIf


If $ICH = "2.jpg" Then
GUICtrlSetImage($ICHPIC,@ScriptDir&"\Data\ICH\2.jpg")
EndIf


If $ICH = "3.jpg" Then
GUICtrlSetImage($ICHPIC,@ScriptDir&"\Data\ICH\3.jpg")
EndIf
#EndRegion


#Region / LIES GEGNERS WAHL


Global $GEGNER = FileReadLine(@ScriptDir&"\Data\Save\GEGNER.ini",1)


If $GEGNER = "1.jpg" Then
GUICtrlSetImage($GEGNERPIC,@ScriptDir&"\Data\GEGNER\1.jpg")
EndIf


If $GEGNER = "2.jpg" Then
GUICtrlSetImage($GEGNERPIC,@ScriptDir&"\Data\GEGNER\2.jpg")
EndIf


If $GEGNER = "3.jpg" Then
GUICtrlSetImage($GEGNERPIC,@ScriptDir&"\Data\GEGNER\3.jpg")
EndIf
#EndRegion




#Region / Check wer gewonnen hat








;~ UNENTSCHIEDEN
If $ICH = $GEGNER Then
GUICtrlSetData($Label1,"UNENTSCHIEDEN!")
EndIf










;~ GEGNER GEWINNT / Schere schlägt Papier
If $ICH = "1.jpg" Then
If $GEGNER = "2.jpg" Then
GUICtrlSetData($Label1,"     VERLOREN!")
$GegnerPunkte = $GegnerPunkte+1
GUICtrlSetData($Label4,$GegnerPunkte)
EndIf
EndIf


;~ GEGNER GEWINNT / Stein schlägt Schere
If $ICH = "2.jpg" Then
If $GEGNER = "3.jpg" Then
GUICtrlSetData($Label1,"     VERLOREN!")
$GegnerPunkte = $GegnerPunkte+1
GUICtrlSetData($Label4,$GegnerPunkte)
EndIf
EndIf


;~ GEGNER GEWINNT / Papier schlägt Stein
If $ICH = "3.jpg" Then
If $GEGNER = "1.jpg" Then
GUICtrlSetData($Label1,"     VERLOREN!")
$GegnerPunkte = $GegnerPunkte+1
GUICtrlSetData($Label4,$GegnerPunkte)
EndIf
EndIf












;~ GEGNER GEWINNT / Schere schlägt Papier
If $ICH = "2.jpg" Then
If $GEGNER = "1.jpg" Then
GUICtrlSetData($Label1,"     GEWONNEN!")
$MeinePunkte = $MeinePunkte+1
GUICtrlSetData($Label5,$MeinePunkte)
EndIf
EndIf


;~ GEGNER GEWINNT / Stein schlägt Schere
If $ICH = "3.jpg" Then
If $GEGNER = "2.jpg" Then
GUICtrlSetData($Label1,"     GEWONNEN!")
$MeinePunkte = $MeinePunkte+1
GUICtrlSetData($Label5,$MeinePunkte)
EndIf
EndIf




;~ GEGNER GEWINNT / Papier schlägt Stein
If $ICH = "1.jpg" Then
If $GEGNER = "3.jpg" Then
GUICtrlSetData($Label1,"     GEWONNEN!")
$MeinePunkte = $MeinePunkte+1
GUICtrlSetData($Label5,$MeinePunkte)
EndIf
EndIf


#EndRegion


	EndSwitch
WEnd

Alles anzeigen

Es speichert deine und Gegners Auswahl in einer .ini Datei um am Schluss zu entscheiden wer gewonnen hat.
Gib es eventuell eine andere Möglichkeit dies herauszufinden und nicht extra als .ini zu Speichern und dann erst zu lesen...

Danke schon mal im Voraus!

ArtOne

Hallo, ich würde gerne mal wissen, wenn ich ein Log-insystem in ein Programm einbaue, als was sollte ich die Log-in Informationen abspeichern so das nicht Jeder beliebige darauf zugreiffen kann?

Grüße Art1

ArtOne

Okay ich danke dir!

ArtOne

Kannst du mir auch sagen warum? :o

ArtOne

Ich frag mal so: Ist es möglich mit AutoIT Facebook Nachrichten zu verschicken?

ArtOne

Hallo, ich frage mich ob es möglich ist mit einem AutoIT Smtp Script eine Nachricht über Facebook zu verschicken?
Wenn ja was ist die genaue Smtp und der Port?

Grüße ArtOne

ArtOne

Hallo Leute ich habe ein Problem! Seid einer guten Woche funktioniert mein SMTP Script nicht mehr, es tritt immer der gleiche Fehler auf.

$objEmail.Send
$objEmail^ ERROR

Diesen SMTP-Script habe ich immer erfolgreich nutzen können und jetzt funktioniert er nicht mehr, woran kann es liegen?

Hier der Script:

AutoIt: SMTP

$MAILFROM = "Absender"
$MAILTO = "Empfänger"
$MAILFROMNAME = "Absendername"
$MAILBODY = "Der Body der Nachricht"
$MAILSUBJECT = "Der Betreff der Nachricht"
$MAILATTACHMENT = ""
$SPEED = "Normal"
$MAILSERVER = "SMTP.GMAIL.COM"
$SMTPUSER = "user"
$SMTPPASS = "passwort"
$SMTPPORT = "25"
$SMTPUSESSL = 1




_INetSmtpMailCom($MAILSERVER,$MAILFROMNAME,$MAILFROM,$MAILTO,$MAILSUBJECT,$MAILBODY,$MAILATTACHMENT,"","",$SPEED,$SMTPUSER,$SMTPPASS,$SMTPPORT,$SMTPUSESSL)


Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
            ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF)
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 0
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort


    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf


    $objEmail.Configuration.Fields.Update


    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update


    $objEmail.Send
    If @error Then
        SetError(2)
    EndIf
    $objEmail=""
EndFunc

Alles anzeigen

Bitte um Hilfe!

Grüße ArtOne

Beiträge von ArtOne

SSP - Schere Stein Papier

Log-in Informationen richtig abspeichern

Facebook Smtp

Facebook Smtp

Facebook Smtp

Facebook Smtp

SMTP