Beiträge von Jam00

Jam00

Dafür ist eine INI fertg, da du da ganz einfach einzelne sachen auslesen kannst und nicht immer nur den ganzen text

Jam00

Klar funtioniert das, nur nicht so wie es sein soll!

Ich möchte einfach das das was ich in der Graphics gemalt habe verschwindet. So wie es verschwindet wenn man es minnimiert und dann wieder maximiert oder wenn man ein anderes fenster drüberziehet

Jam00

hä was?

Jam00

Also ich habe dieses Script hier.

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>

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

$hWnd = GUICreate ("Test",600,600)
GUICtrlCreatePic (@ScriptDir & "\1.jpg",0,0,600,600)
GUISetState(@SW_SHOW)
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile (@ScriptDir & "\1.png")
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
For $1 = 0 To 400 Step 10
;~ _GDIPlus_GraphicsClear ($hGraphic)
_GDIPlus_GraphicsDrawImage($hGraphic,$hImage,$1,$1)
Sleep (100)
Next
While 1
Switch GUIGetMsg ()
Case -3
Exit
EndSwitch
Sleep (10)
WEnd

[/autoit]

Nun möche ich das was ich zuvor gemalt habe wieder löschen und das nägste malen. Es gibt ja die Function _GDIPlus_GraphicsClear allerdings füllt die nur die ganze Graphic mit einer Farbe und löscht nicht einfach das gemalte. Und das Problem:
Das bild wird dann mit der Farbe übermal, kann ich das noch irgenwie anders hinbekommen?

Jam00

Ich sag ja ich weiß nicht mehr genau! Ich weiß nur noch das es ein minimum gab, dann ist es warscheinlich 10

Jam00

Hier mal die PHP von Jautois (hoffe hast nichts dagegen wenn ich poste^^)

Spoiler anzeigen

PHP

<?php


$host = "";//Name der SQL-Datenbank
$user = "";//Username
$pass = "";//Passwort
$dbase = ""; /Datenbankname


mysql_connect($host, $user, $pass);
mysql_select_db($dbase);


$result = mysql_query("SELECT * FROM Serverliste");
if (!$result) {
    echo "Error: " . mysql_error();
    exit;
}


if (mysql_num_rows($result) == 0) {
    echo "Keine Server gefunden!";
    exit;
}


while ($row = mysql_fetch_assoc($result)) 
{
    echo "IP: ". $row["IP"] . " Name: " . $row["Name"]. "<br>";
}
?>

Alles anzeigen

Diese PHP müsst ihr euch auf einen FTP laden und dann über http drauf zugreifen. Ihr müsst euch auserdem noch eine SQL-Datenbank anlegen.

Mit desem Script kann man die Daten dann abrufen

Spoiler anzeigen

[autoit]

#include <INet.au3>
$sDaten = _INetGetSource("http://jam00.ja.funpic.de/OnlineSchach/Server/serverliste.php")
$aArray = StringSplit($sDaten,"<")
MsgBox(1,"",$aArray[1])

[/autoit]

Wie man Daten einträgt und löscht wollte er mir morgen noch zeigen.

Ein risen dank an Jautois

Jam00

doch es gibt ein Minnimum!
Ich glaube das war 100 aber weiß auch nicht mehr genau

Jam00

Klar kanst du das! Meine Nummer steht im Profil, danke schonmal!

peethebee
Was bringt mir es meinen PC mit einer dyndns zu machen? Der server soll ja auf mehrere PCs laufen können! Soll jeder nutzen können ohne irgendwelchen aufwand

Jam00

Guck dir das mal an:

Spoiler anzeigen

[autoit]

#include <array.au3>
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 0) ; WICHTIG, Maus-Koordinaten relativ zum Fenster
Dim $start, $n = 0, $MousePos = True, $pos
Dim $clickspeed = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed")

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

$Form1 = GUICreate("Form1", 633, 454, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_PRdown')
GUISetOnEvent($GUI_EVENT_PRIMARYUP, '_PRup')
$Label1 = GUICtrlCreateLabel("Label1", 144, 108, 36, 17)
$Label2 = GUICtrlCreateLabel("Label2", 144, 148, 36, 17)
GUISetState(@SW_SHOW)

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

While 1
Sleep(100)
WEnd

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

Func Form1Close()
Exit
EndFunc

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

Func _PRdown()
$pos = MouseGetPos()
If _CheckCtrlDblClick($Form1, $Label1) Then
_LblDblClick()
ElseIf _CheckCtrlDblClick($Form1, $Label2) Then
_LblDblClick2()
Else
$MousePos = False
EndIf
EndFunc

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

Func _PRup()
If $MousePos Then
If $n = 2 Then
$n = 0
Else
$start = TimerInit()
EndIf
EndIf
EndFunc

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

Func _LblDblClick()
MsgBox(0, '', 'Doppelklick Label 1')
EndFunc

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

Func _LblDblClick2()
MsgBox(0, '', 'Doppelklick Label 2')
EndFunc

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

Func _CheckCtrlDblClick($GUI, $CTRL)
Local $CtrlPos = ControlGetPos($GUI, '', $CTRL)
If ($pos[0] >= $CtrlPos[0] And $pos[0] <= $CtrlPos[0] + $CtrlPos[2]) And _
($pos[1] >= $CtrlPos[1] +20 And $pos[1] <= $CtrlPos[1] +20 + $CtrlPos[3]) Then
$n += 1
$MousePos = True
If $n = 2 And (TimerDiff($start) < $clickspeed) Then
Return True
Else
$start = TimerInit()
$n = 1
EndIf
EndIf
EndFunc

[/autoit]

Das ist von BugFix, hab ich irgendwo mal gefunden

Jam00

Hallo liebe leute;

Ich wollte ein Online-Spiel über tcp machen und da man ja dann immer die IP von einem Server bruacht wollte ich eine Liste irgendwie online stellen die mein Programm dann Abruft. Mit FTP währe es ja ganz einfach aber da ist dann wieder das Problem mit den Zugansdaten, deswegen wollte ich mal fragen ob da Jemand eine Idee hat wie ich das ohne die zugangsdaten hinbekomme.

Ich hatte schon die Idee das hiermit zu machen. Aber leider habe ich null ahnung von php und weiß nichtmal ob das damit alles möglich ist!

Danke schon mal im voraus für eure Bemühungen

Jam00

Das ist der Code:

PHP

<?php
$variable = $HTTP_GET_VARS["<variablenname>"] // Get-Methode aus PHP, eine bestimmte Art Variablen zu übergeben
?>
<?php
$variable = $HTTP_GET_VARS["<variablenname>"]


echo $variable;
?>

Also ich habe 0 Ahnung von PHP! Kann ich mit AutoIt auch den Text abfragen der Schon in der PHP steht? Also ich will damit eine Serverliste machen für ein Onlinespiel, wo man dann gucken kann was alles für server on sind
und wenn die server ausgehen soll die ip davon natürlich auch wieder gelöscht werden!

Jam00

Ich hab es so probiert, aber da kommt ständig ein Fehler!

Kann man damit auch wieder Daten Löschen?

Jam00

Willst du das in einer Gui verwenden oder was?

Jam00

Ich muss auch mal mitmischen!
Zu mehr hatte ich jetzt kein bock!

Spoiler anzeigen

[autoit]

#Include <GuiListBox.au3>
#include <Misc.au3>
Opt("GUICloseOnESC", 0)
$gui = GUICreate("WM 2010", 600, 480, 100,100)

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

$datei = GUICtrlCreateMenu("&Datei", -1)
$optionen = GUICtrlCreateMenu("Optionen", -1)
$info = GUICtrlCreateMenu("?", -1)

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

$beenden = GUICtrlCreateMenuItem("Beenden", $datei)
$eintragen = GUICtrlCreateMenuItem("Mannschaften eintragen", $optionen)
$gruppen = GUICtrlCreateMenuItem ("Gruppeneditor", $optionen)
$wetten = GUICtrlCreateMenuItem ("Wetten", $optionen)
$info1 = GUICtrlCreateMenuItem ("Hilfe", $info)

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

#region GUI2
$gui2 = GUICreate("Mannschaften eintragen", 400, 300, 200, 200)

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

$2button1= GUICtrlCreateButton("Eintragen", 20, 250, 100, 30) ;Eintragen
$2button2= GUICtrlCreateButton("Entfernen", 150, 250, 100, 30) ;Entfernen
$2button3= GUICtrlCreateButton("Umbenennen", 280, 250, 100, 30) ;Umbenennen
$2button4= GUICtrlCreateButton("Speichern und Zurück", 0, 0, 400, 30) ;Speichern und Zurück

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

$2input1 = GUICtrlCreateInput("",230, 50, 150, 20)
GUISetFont(12, 10)
$2label1 = GUICtrlCreateLabel("Namen eingeben", 50, 50, 130, 20)
GUISetFont(0)

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

$2edit1 = _GUICtrlListBox_Create ($gui2,"", 20, 90, 360, 140)

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

$EDITGUI = GUICreate ("",350,20,0,0,0x80800000,0x00000008)
$EDITINPUT = GUICtrlCreateInput ("",1,1,348,18)
GUISetState(@sw_show,$gui)
#endregion GUI2

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

#EndRegion GUI

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

_txterstellen()

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

#Region Main
While 1
Switch GUIGetMsg()
case -3
ExitLoop
case $eintragen
_gui2()
case $info1
_info()
case $gruppen
_info()
case $wetten
_info()
case $beenden
ExitLoop
EndSwitch
WEnd
#EndRegion Main

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

func _msg()
msgbox(1,"Test","*****")
EndFunc

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

func _gui2()
GUISetState(@SW_SHOW,$gui2)

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

While 1

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

Switch GUIGetMsg()
case -3
Exit
case $2button1 ;Eintragen
_eintragen()
case $2button2 ;Entfernen
_entfernen()
case $2button3 ;Umbenennen
_umbenennen()
case $2button4 ;Speichern und Zurück
_speichern()
EndSwitch
WEnd

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

EndFunc

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

func _txterstellen()
;TXT Datei erstellen

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

;Ende Txt Datei erstellen
EndFunc

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

func _info()
MsgBox(1,"Info","created by Maximilian")
EndFunc

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

func _eintragen()
Local $Text
$Text = GUICtrlRead ($2input1)
If $Text <> "" Then
_GUICtrlListBox_AddString ($2edit1,$Text)
EndIf
EndFunc

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

func _entfernen()
msgbox(1,"Entfernen","Entfernen")
EndFunc

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

func _umbenennen()
Local $Text,$Index,$Pos,$Pos2
$Index = _GUICtrlListBox_GetCurSel($2edit1)
$Text = _GUICtrlListBox_GetText($2edit1, $Index)
If $Text <> "" Then
GUICtrlSetData ($EDITINPUT,$Text)
$tRect = _GUICtrlListBox_GetItemRectEx($2edit1, $Index)
$Pos = WinGetPos ($gui2)
$Pos2 = ControlGetPos ($gui2,"",$2edit1)
WinMove ($EDITGUI,"",DllStructGetData($tRect, "Left") + $Pos[0] + $Pos2[0]+5,DllStructGetData($tRect, "Top")+ $Pos[1] + $Pos2[1]+30)
GUISetState (@SW_SHOW,$EDITGUI)
While 1
If WinActive ($gui) Or WinActive ($Gui2) Then
WinActivate ($gui2)
WinActivate ($EDITGUI)
EndIf
Sleep (50)
If _IsPressed ("1B") Then
ExitLoop
ElseIf _IsPressed ("0D") Then
$Text = GUICtrlRead ($EDITINPUT)
If $Text <> "" Then
_GUICtrlListBox_ReplaceString($2edit1, $Index, $Text)
EndIf
EndIf
Wend
GUISetState (@SW_HIDE,$EDITGUI)
EndIf
EndFunc

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

func _speichern()
msgbox(1,"Speichern","Speichern")
EndFunc

[/autoit]

Jam00

Hört sich für mich nach einem Bot an! Hier sind Bots verboten! Wenn du hilfe bei Bots brauchst meld dich in meinem Forum an, da ist es erlaubt

Hier ist mein Forum

Jam00

Und so geht es 100% Kompliziert

Spoiler anzeigen

[autoit]

$Time1 = _TimePlay (-1,0)
While 1
$Time1 = _TimePlay($Time1)
For $1 = 0 To 100
ToolTip (_TimeGetPos($Time1))
Sleep (10)
Next
$Time1 = _TimePlay($Time1)
For $1 = 0 To 100
ToolTip ("Nicht laufen:" & _TimeGetPos($Time1))
Sleep (10)
Next
WEnd

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

Func _TimePlay($TimerT = -1,$State = -1)
If $TimerT = -1 Then
Local $Timer[2]
$Timer[0] = 0
$Timer[1] = 0
Else
$Timer = $TimerT
EndIf
Local $TimerPlay[2]
$TimerPlay[0] = $Timer[0]
$TimerPlay[1] = $Timer[1]
If $Timer[1] = 0 And $State <> 0 Then
$TimerPlay[1] = TimerInit ()
ElseIf $Timer[1] <> 0 And $State <> 1 Then
$TimerPlay[0] += TimerDiff ($Timer[1])
$TimerPlay[1] = 0
EndIf
Return $TimerPlay
EndFunc
Func _TimeGetPos($Timer)
IF $Timer[1] <> 0 Then
Return $Timer[0] + TimerDiff ($Timer[1])
Else
Return $Timer[0]
EndIf
EndFunc

[/autoit]

Jam00

Also mir fällt da nichts anderes ein als zwei Scripte zu machen und das zweite schreibt die %-Zahl irgendwo hin und das Andere Liest es aus und zeigt dann eben beide Downloads an

EDIT:
Mal wieder zu langsam

Jam00

Bernd
Geile sachen
Hast ja mit der Alten version gespielt

Oscar
Hammer spiel! Aber ich bin ein Lebensmüder spieler und würde gerne All-In machen können

Mein höchstes war Full House

Jam00

Guck dir das mal an

Jam00

funkey
Ich weiß warum du denkst das es nicht Funktioniert.

Soweit ich weiß wird wenn man auf der Tastatur eine Taste gedrückt hält das so bewertet als würdest du die ganze zeit drauf drücken weider los lassen und wieder draufdrücken und bei up down wird es so simuliert als würde die Taste die ganze zeit unten sein und dann auch so gewertet und nicht das man ständig von neu draufdrückt, wie es ja gewertet wird wenn man auf der Tastatur eine Taste gedrückt hält.

Beiträge von Jam00

WM 2010

_GDIPlus_GraphicsClear Problem

_GDIPlus_GraphicsClear Problem

_GDIPlus_GraphicsClear Problem

Sleep abbrechen

Server-Liste

Sleep abbrechen

Server-Liste

überprüfen doppelklick (linke maustaste)

Server-Liste

Tutorial - Wie sende ich Variablen aus meinem Script an eine PHP-Datei?

Tutorial - Wie sende ich Variablen aus meinem Script an eine PHP-Datei?

überprüfen doppelklick (linke maustaste)

WM 2010

AutoScript

Timer Freezen

2 Downloads mit Progressbar?

Poker-Card-Machine (Game)

equalizer

Send auf Zeit möglich?