Beiträge von Eistee

Eistee

Danke jetzt Funktioniert es einwandfrei

Eistee

$Pic1 = GUICtrlCreatePic("C:\Bild.bmp", 0, 0, 316, 348, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$GUI_DISABLE))

So Siehts jetzt aus immer noch das Gleiche Hm... geht wohl nicht

Eistee

Ich möchte das jedoch nicht gray

$GUI_DISABLE Das Steuerelement wird deaktiviert, grau dargestellt und kann nicht benutzt werden <------------------Steht so in der Hilfe

Eistee

Hallo Comunity ich habe ein grosses (für euch warscheinlich kleines) Problem in meiner Gui Welche ich mit Koda erstellt habe Funktionieren die Buttons Nicht kann mir da Bitte jemand helfen ?

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

FileInstall("C:\Users\Eistee\Desktop\Bild.bmp", "C:\Bild.bmp")
FileInstall("C:\Users\Eistee\Desktop\Resolution.exe", @ScriptDir &"\Resolution.exe")
$File1 = FileRead("notice.txt")

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

$Form1_1 = GUICreate("Test", 318, 350, 470, 262)
GUISetBkColor(0x000000)
$Pic1 = GUICtrlCreatePic("C:\Bild.bmp", 0, 0, 316, 348, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Edit1 = GUICtrlCreateEdit("", 24, 152, 282, 153)
GUICtrlSetData(-1, $File1)
$Button1 = GUICtrlCreateButton("Start", 24, 312, 59, 27, 0)
$Button2 = GUICtrlCreateButton("Setting", 88, 312, 75, 27, 0)
$Button3 = GUICtrlCreateButton("Website", 168, 312, 75, 27, 0)
$Button4 = GUICtrlCreateButton("Exit", 248, 312, 59, 27, 0)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_1()
Case $Button2
_2()
Case $Button3
_3()
Case $Button4
_4()
EndSwitch
WEnd

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

Func _1()
Run("start.bat")
Sleep(500)
Exit
EndFunc
Func _2()
MsgBox(1,"Resolution", "Here you can change the Resolution, Other settings Change InGame Please")
Run("Resolution.exe")
Exit
EndFunc
Func _3()
ShellExecute("http://google.de")
Sleep(500)
Exit
Endfunc
Func _4()
Exit
EndFunc

[/autoit]

Mfg Eistee

Eistee

ähm Wir haben grosse Laufwerksbuchstaben

nicht so

[autoit]

c:\vnc.bmp

[/autoit]

sondern so

[autoit]

C:\vnc.bmp

[/autoit]

P.s. Im normalfall muss man nichts freischalten

Mfg Eistee

Eistee

Klemm Xampp Dahinter Das ist Ein programm das deinen Pc auf Port 3306 Als Server konfiguriert somit kannste z.B. ne Homepage Hosten oder Ähnliches und das dann mit deinem script kombinieren

Eistee

Wie du sicher auch selbst merkst ist es sehr schwer ne Ferndiagnose zu erstellen
wärst du so freundlich den bisher geschriebenen script Inklusiver der Textdateien mit Anzuhängen Dann kann ich erstmal damit Rumspielen

Mfg Eistee

Eistee

[autoit]

$icon_ica = GUICtrlCreateIcon(@ScriptDir &"\vnc.bmp", "", 340, 85, 16, 16)
GUICtrlSetState($icon_ica, $GUI_SHOW)

[/autoit]

Mfg Eistee

P.s.

Ich würde es eher so lösen :

Spoiler anzeigen

[autoit]

FileInstall("PfaddesBildes\vnc.bmp", "C:\vnc.bmp") ;Beim ersten musste Pfad vom Bild Eingeben Und Beim Zweiten wo´s Hin soll
$icon_ica = GUICtrlCreateIcon("C:\vnc.bmp", "", 340, 85, 16, 16)
GUICtrlSetState($icon_ica, $GUI_SHOW)

[/autoit]

Und wegen Vista ,sagen wir mal so bei den meissten sachen Stört sich Autoit nicht wirklich drann (Ich verwende auch vista ^^) Ob es bei grösseren sachen Probleme Verursacht ist eine andere Frage

Mfg Eistee

Eistee

Eine rolle spielt er insofern das ich vor habe diese zahlen anschliessen dafür zu verwenden um zu gucken ob sich die file.list geändert hatt da mein script nur ausgeführt werden soll wenn sich der inhalt geändert hatt dafür werden die zahlen benötigt sonst sind se unwichtig

Mfg Eistee

Eistee

Ok
PseudoCode

FileRead (@scriptdir &"\Foldersandunderfolders+files")

Filewrite file.list(alldirectorysandfiles+wechselnderzahlencode)

Beispeil : Im scriptdir ist ein ordner data in diesem ist ein ordner textures in dem Sind 3 filles und zwar 1.txt,2.txt,3.txt

das script erstellt nun eine Textdatei in die schreibt er Auf line 1 :

/data/textures/1.txt,3325566757456

Line 2

/data/textures/2.txt,86767583464235

Line 3

/data/textures/3.txt,4764579756856794568778

Ich hoffe das versteht ihr unter Pseudocode

Info: Wenn ihr xampp aufm Pc Habt dann legt diesen script in den Prdner htdocs erstellt mehere Unterordner in diesem ordner erstellt in paar unterordnern weitere Unterordner legt in jeden ordnerpar files dann ruft im browser http://127.0.0.1 auf und klickt dan auf dieses script
passwort ist dann kalonline und wartet bis da steht Done dan geht wieder in das verzeichnis öffnet die neue datei file.list und schon seht ihr was genau passiert

Eistee

Danke pethebee und bugfix aber ich komme auch mit dem Manual nicht weiter Php ist echt zu kompliziert füt mich ich würde das auch lieber über Autoit machen habe aber keine ideen wie das realisierbar wäre und ich möchte das Forum nicht mit Bitte Bitte macht mir nen Script zumüllen ich hoffe ihr findet nen weg

Mfg Eistee

Eistee

Habe es mal mit beiden Tipps angepasst er macht jetzt keine Fehler mehr aber die punkte sind noch immer davor...

Spoiler anzeigen

<?php

class Boot
{
private $i = 0;

/**
* Create the script boot file.
*
* @param string $FILEN
* @param int $mode
* @return bool
*/
public function Create($FILEN, $mode)
{
$dir = "./";
$dir2 ="/";

if(is_dir($dir))
{
$Handle = opendir($dir);
if($Handle)
{
$FHandle = fopen($FILEN, 'w');
$this->ReadDir($Handle, $dir, $FHandle, $mode);
//Cut trails
$temps = file_get_contents($FILEN);
$temps[strlen($temps) - 1] = "";
file_put_contents($FILEN, $temps);

}
}

return true;
}

/**
* Read all files in a given directory.
*
* @param resource $Handle
* @param string $dir
* @param resource $FHandle
* @param int $mode
* @return bool
*/
private function ReadDir($Handle, $dir, $FHandle, $mode)
{

while (($file = readdir($Handle)) !== false)
{

if(is_dir($dir.$file) && $file != ".." && $file != ".")
{
$NHandle = opendir($dir.$file."/");
if($NHandle)
{
$this->ReadDir($NHandle, $dir.$file."/", $FHandle, $mode);

}

}
elseif (is_file($dir.$file))
{
$Skip = array(
'file.list',
'filelist.php'
);
if($mode == 1)
{
if($this->FileExt($file) == "zip" && !array_key_exists($file, $Skip) && $file[0] != '_')
{
$data = $this->FileName($file) . "," . filesize($dir.$file) . "*";
if(substr($data, 0,1) == ".")
{
$dat = substr($data, 1);
}else{
$dat = $data;
}
fwrite($FHandle, $dat);
$this->i++;

}
}
else
if(!$this->CheckName($file, $Skip) && $file[0] != '_')
{
$data = $dir.$file . "," .md5_file($dir.$file);
$dat = "$data\r\n";
fwrite($FHandle, $dat);
$this->i++;

}

}
else
{ // Then what is it? oO
continue;
}

}

closedir($Handle);
return true;
}

/**
* Returns the extension of the file name
*
* @param string $file
* @return string
*/
private function FileExt($file)
{
$TEMP = explode('.', $file);
return $TEMP[count($TEMP) - 1];
}

private function FileName($file)
{
$TEMP = explode('.', $file);
return $TEMP[0];
}

/**
* Loads a boot file.
*
* @param string $FILEN
* @return bool
*/
public function Load($FILEN)
{
$fp = fopen("list.txt", 'r');
$TEMP['RESOURCE'] = fopen($FILEN, 'r');

$i = 0;

while (!feof($TEMP['RESOURCE']))
{
$TEMP['FILE'][$i] = fgets($TEMP['RESOURCE'], 1024);
$i++;
}

for($c = 0; $c < count($TEMP['FILE']); $c++)
{
include($TEMP['FILE'][$i]);
}

unset($TEMP);
return true;
}

private function CheckName($file, $array)
{
for($i = 0; $i < count($array); $i++)
{
if($file == $array[$i])
{
return true;
break;
}
}

return false;
}

}
if(isset($_POST['submit']) && $_POST['pa'] == "kalonline")
{
$boot = new Boot();
$boot->Create("file.list", 0);
echo "Done!";
}
?>
<form method="POST" action="">
<input type="password" maxlength="50" name="pa">
<input type="submit" name="submit" value="Do it.">

</form>

Eistee

ok Danke dir sehr Bugfix

Eistee

Hilft es dir wenn ich dir dei datei anhänge ? Hm.. ich mach das mal

Eistee

Ne leider nicht möglich

Parse error: syntax error, unexpected T_ELSE in C:\Users\Eistee\Desktop\test\xampp\htdocs\yourhost.com\updater\filelist.php on line 87

Eistee

oben ist doch der php code da da steht ja nicht ./notice.txt

Eistee

Hi Comunity habe hier einen php script der ausliest was in seinem verzeichnis ist und der dann eine datei mit dem namen file.list erstellt das Problem an Sich ist dabei das eine erstellte zeile so aussieht : ./notice.txt

kann einer von euch das ändern damit danach nicht steht : ./notice.txt sondern : /notice.txt ?

Spoiler anzeigen

<?php

class Boot
{
private $i = 0;

/**
* Create the script boot file.
*
* @param string $FILEN
* @param int $mode
* @return bool
*/
public function Create($FILEN, $mode)
{
$dir = "./";

if(is_dir($dir))
{
$Handle = opendir($dir);
if($Handle)
{
$FHandle = fopen($FILEN, 'w');
$this->ReadDir($Handle, $dir, $FHandle, $mode);
//Cut trails
$temps = file_get_contents($FILEN);
$temps[strlen($temps) - 1] = "";
file_put_contents($FILEN, $temps);

}
}

return true;
}

/**
* Read all files in a given directory.
*
* @param resource $Handle
* @param string $dir
* @param resource $FHandle
* @param int $mode
* @return bool
*/
private function ReadDir($Handle, $dir, $FHandle, $mode)
{

while (($file = readdir($Handle)) !== false)
{

if(is_dir($dir.$file) && $file != ".." && $file != ".")
{
$NHandle = opendir($dir.$file."/");
if($NHandle)
{
$this->ReadDir($NHandle, $dir.$file."/", $FHandle, $mode);

}

}
elseif (is_file($dir.$file))
{
$Skip = array(
'file.list',
'filelist.php'
);
if($mode == 1)
{
if($this->FileExt($file) == "zip" && !array_key_exists($file, $Skip) && $file[0] != '_')
{
$data = $this->FileName($file) . "," . filesize($dir.$file) . "*";
$dat = $data;
fwrite($FHandle, $dat);
$this->i++;
}
}
else
if(!$this->CheckName($file, $Skip) && $file[0] != '_')
{
$data = $dir.$file . "," .md5_file($dir.$file);
$dat = "$data\r\n";
fwrite($FHandle, $dat);
$this->i++;

}

}
else
{ // Then what is it? oO
continue;
}

}

closedir($Handle);
return true;
}

/**
* Returns the extension of the file name
*
* @param string $file
* @return string
*/
private function FileExt($file)
{
$TEMP = explode('.', $file);
return $TEMP[count($TEMP) - 1];
}

private function FileName($file)
{
$TEMP = explode('.', $file);
return $TEMP[0];
}

/**
* Loads a boot file.
*
* @param string $FILEN
* @return bool
*/
public function Load($FILEN)
{
$fp = fopen("list.txt", 'r');
$TEMP['RESOURCE'] = fopen($FILEN, 'r');

$i = 0;

while (!feof($TEMP['RESOURCE']))
{
$TEMP['FILE'][$i] = fgets($TEMP['RESOURCE'], 1024);
$i++;
}

for($c = 0; $c < count($TEMP['FILE']); $c++)
{
include($TEMP['FILE'][$i]);
}

unset($TEMP);
return true;
}

private function CheckName($file, $array)
{
for($i = 0; $i < count($array); $i++)
{
if($file == $array[$i])
{
return true;
break;
}
}

return false;
}

}
if(isset($_POST['submit']) && $_POST['pa'] == "kalonline")
{
$boot = new Boot();
$boot->Create("file.list", 0);
echo "Done!";
}
?>
<form method="POST" action="">
<input type="password" maxlength="50" name="pa">
<input type="submit" name="submit" value="Do it.">

</form>

Eistee

Hallo Tremue Danke für den Tipp
Ich habe jedoch ein problem mein script Funktionirt nicht zu 100 % denn er lädt die datei nicht Herunter weis Hier einer an welcher stelle mein Fehler liegt ?

Spoiler anzeigen

[autoit]

#include<Array.au3>
#include<File.au3>
$Ip = ("http://127.0.0.1/yourhost.com/updater")
Local $meinarray
InetGet($Ip &"\file.list",@DesktopDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("test.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("test.txt", $split[$i] & @crlf)
Next
$filename1 = @ScriptDir & '\test.txt'
$filename2 = @ScriptDir & '\test1.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
Exit

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

$1 = FileReadLine($filename1,1)
$2 = FileReadLine($filename2,1)
Inetget($Ip&$1,@ScriptDir &$2)

[/autoit]

Der Array $1 enthält ./notice.txt und der Array $2 für .\notice.txt jedoch lädt er die notice.txt nicht in das Desktop was habe ich übersehen ?

Edit: Habe das problem gefunden Es Liegt an dem . vor dem text leider muss man den punkt manuell entfernen...

Eistee

Xenobiologist ich danke dir für die tolle Hilfe

könntest du mir die zeilen kommentieren ? damit ich weis welcher Befehl in dieser Schleife für was steht ? dann kann ich das un Zukunft selbst verwenden Danke

Eistee

mit filewritefromarray gibt es nur eine 2 zurück und wie man eine Schleife Verwendet habe ich nicht raus kannste mir da helfen ?

Mfg Eistee

Beiträge von Eistee

Buttons Funktionieren nicht !

Buttons Funktionieren nicht !

Buttons Funktionieren nicht !

Buttons Funktionieren nicht !

Bilder werden nicht mehr dargestellt

Mit Browser auf Script connecten (TCP)

7Zip will aus AutoIT nicht so richtig

Bilder werden nicht mehr dargestellt

Php wer kann das ?

Php wer kann das ?

Php wer kann das ?

Php wer kann das ?

Php wer kann das ?

Php wer kann das ?

Php wer kann das ?

Php wer kann das ?

Php wer kann das ?

Stringsplit Komplette datei ?

Stringsplit Komplette datei ?

Stringsplit Komplette datei ?