Beiträge von Sirocool

Sirocool

Er zeigt ein fehler in deiner dll an.

Sirocool

wie gesagt würde es gerne testen nur fehlt diese datei #include "BlockInputEx.au3" in zeile 16.

Sirocool

So nach langer Zeit melde ich mich auchmal wieder erstmal muss ich sagen zeiht einfach nur ginial aus weiter so.

Das wars schon und weiterhin viel Spaß.

Sirocool

Hai bei mir flackert es ganz schön dadurch kommt dein menü oben garnicht mehr hinterher.
Ansonsten Styl und der aufbau sieht gut aus.

Sirocool

Frag mal Jam00 der kann dir dabei helfen der hatte mal so was mit mirgebaut und getestet ging auch alles aber ist sein Projekt gewesen.

Sirocool

Hallo liebe Leute,

nach langer Zeit melde ich mich auch mal wieder zu worte, und zwar habe ich eine frage wie bekommt man es hin das man einen rtmpt-dateistream in autoit abspielen kann.
Ich habe mir zwar schon dies hier runtergezogen und diesen befehle hier

Spoiler anzeigen

rtmpdump.exe -r rtmpt://cp87869.live.edgefcs.net:1935/live/us_300@21006 --quiet | "C:\Program Files\VideoLAN\VLC\vlc.exe" -

in einer cmd datei eingeben aber da kommt nichts, müsste eigendlich blumberg TV kommen.

Sirocool

Hey wo kann ich eine andere figur einstellen als den zelda ? in deinem Script :-).

Sirocool

erstmal muss ich sagen deine Engien ist top gemacht weiter so freu mich schon auf dein spiel :-).

Sirocool

wenn ich deine neue version ziehe auf der downloadseite kommt ein fehler aufmeinem pc im zip ist nichts drin.
bitte kontrolier das mal bitte finde dein spiel bis jetzt super.

und weiter so.

MapleDesktop

Sirocool

habe noch nicht viel gecodet fülle immer noch die datenbanken aber gut zu wissen fals ich mal fragen habe komme ich auf dich zurrück wenn ich darf.

Sirocool

Es hat sich in der Zeit ja einiges getan die neue Webseite heisst jetzt https://autoit.de/www.Mapledesktop.de und, wird zurzeit komplett überarbeitet von mir (neues Layout und Datenbanke bekommt das ganze jetzt). wer jetzt denkt es sein nicht abgesprochen mit Faweyr ist im ürtum.

Mit freundlichen Grüßen

Das MapleTeam

Sirocool

und zwar geht es um diesen code.
1.Frage ist es wie schaffe ich es das er mir nach den 20 teilen eine neue seite anzeigt .
2.Frage wie schaft man dann dies auch in den indx anzeigen zulassen zurzeizt wenn man was auf ruft habe ich es so gemacht Index?go= .... muss ich auch eine <? include("rotation.php"); ?> einbauen der es dann mit einen snde auftrag ändert ? klick
Es geht um https://autoit.de/www.Mapledesktop.de habe sie etwas erneuert

Spoiler anzeigen

[autoit]

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

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

<html>

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

<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<meta name="generator" content="Adobe GoLive 6">
<title>Willkommen bei Adobe GoLive 6</title>
</head>

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

<body bgcolor="#ffffff">
<div align="center">
<br>
<br>
<div align="center">
<div align="center">
<table width="610" border="0" cellspacing="0" cellpadding="0" bgcolor="#ffff33">
<tr>
<td width="5"><br>
</td>
<td width="75"><b>Nr<br>
</b></td>
<td width="75"><b>Icon<br>
</b></td>
<td width="150">
<div align="left">
<b>Name<br>
</b></div>
</td>
<td width="150"><b>SourceCode<br>
</b></td>
<td width="150"><b>Download<br>
</b></td>
<td width="5"><br>
</td>
</tr>
</table>
<br>
<br>
<?php
// PHP-Code Beginn
//***********************************************************************************************************
require_once('db_config.php');
// Die Datenbankverbindungsdaten einbinden, damit die Funktion "mysql_connect" funktioniert
//***********************************************************************************************************
mysql_connect($host, $user, $pass);
// Öffnet eine Verbindung zu dem MySql-Server
//***********************************************************************************************************
mysql_select_db($dbase);
// Wählt die Datenbank $dbase aus
//***********************************************************************************************************
$result = mysql_query("SELECT * FROM maple_files LIMIT 0,10");
if (!$result) {
echo "Error: " . mysql_error();
exit;
}

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

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

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

while ($row = mysql_fetch_assoc($result))
{
echo "
<table width=\"610\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"5\"><br>
</td>
<td width=\"75\"><b>$row[id]</b></td>
<td width=\"75\"><b><img src=\"files/".$row["bild"]."/image.png\" width=\"24\" height=\"24\"></b></td>
<td width=\"150\"><b>$row[name]<br></b></td>
<td width=\"150\"><b><a href=\"files/".$row["id"]."/Data.zip\"><img src=\"images/down_0.gif\" width=\"141\" height=\"31\" border=\"0\"</a></b></td>
<td width=\"150\"><b><a href=\"files/".$row["id"]."/Maple%20Desktop.exe\"><img src=\"images/down.gif\" width=\"141\" height=\"31\" border=\"0\"</a></b></td>
<td width=\"5\"><br>
</td>
</tr>
</table> <br>";

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

//test echo
// echo "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\" usw.>". "<b>".$row["Name"] ."</b>". "||" .$row["Url"]. "<br>";
//echo "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\">". "<b>".$row["Name"] ."</b>". "||". $row["Url"]. "<br>";
echo '<table" width="610" border="0" cellspacing="0" cellpadding="0">';
//echo "<tr>";
//echo "<td>". "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\">". "</td>";
//echo "<td>". $row["Name"] . "</td>";
//echo "</tr>";
//echo "</table>";

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

//echo "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\">"." ". "<b>".$row["Name"] ." ". "<a href=\"files/".$row["Bild"]."/Maple%20Desktop.exe\">"."Download"."</a>"."<br>";
// Bild anzeigen; Namen anzeige; Download;
}
?><br>
<br>
<? include("rotation.php"); ?><br>
<br>
<br>
<table width="610" border="0" cellspacing="0" cellpadding="0" bgcolor="#ffff33">
<tr>
<td width="5"><br>
</td>
<td width="75"><b>Nr<br>
</b></td>
<td width="75"><b>Icon<br>
</b></td>
<td width="150">
<div align="left">
<b>Name<br>
</b></div>
</td>
<td width="150"><b>SourceCode<br>
</b></td>
<td width="150"><b>Download<br>
</b></td>
<td width="5"><br>
</td>
</tr>
</table>
<br>
<br>
<?php
// PHP-Code Beginn
//***********************************************************************************************************
require_once('db_config.php');
// Die Datenbankverbindungsdaten einbinden, damit die Funktion "mysql_connect" funktioniert
//***********************************************************************************************************
mysql_connect($host, $user, $pass);
// Öffnet eine Verbindung zu dem MySql-Server
//***********************************************************************************************************
mysql_select_db($dbase);
// Wählt die Datenbank $dbase aus
//***********************************************************************************************************
$result = mysql_query("SELECT * FROM maple_files LIMIT 10,10");
if (!$result) {
echo "Error: " . mysql_error();
exit;
}

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

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

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

while ($row = mysql_fetch_assoc($result))
{
echo "
<table width=\"610\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"5\"><br>
</td>
<td width=\"75\"><b>$row[id]</b></td>
<td width=\"75\"><b><img src=\"files/".$row["bild"]."/image.png\" width=\"24\" height=\"24\"></b></td>
<td width=\"150\"><b>$row[name]<br></b></td>
<td width=\"150\"><b><a href=\"files/".$row["id"]."/Data.zip\"><img src=\"images/down_0.gif\" width=\"141\" height=\"31\" border=\"0\"</a></b></td>
<td width=\"150\"><b><a href=\"files/".$row["id"]."/Maple%20Desktop.exe\"><img src=\"images/down.gif\" width=\"141\" height=\"31\" border=\"0\"</a></b></td>
<td width=\"5\"><br>
</td>
</tr>
</table> <br>";

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

//test echo
// echo "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\" usw.>". "<b>".$row["Name"] ."</b>". "||" .$row["Url"]. "<br>";
//echo "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\">". "<b>".$row["Name"] ."</b>". "||". $row["Url"]. "<br>";
echo '<table" width="610" border="0" cellspacing="0" cellpadding="0">';
//echo "<tr>";
//echo "<td>". "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\">". "</td>";
//echo "<td>". $row["Name"] . "</td>";
//echo "</tr>";
//echo "</table>";

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

//echo "<img src=\"files/".$row["Bild"]."/image.png\" width=\"37\" height=\"26\">"." ". "<b>".$row["Name"] ." ". "<a href=\"files/".$row["Bild"]."/Maple%20Desktop.exe\">"."Download"."</a>"."<br>";
// Bild anzeigen; Namen anzeige; Download;
}
?><br>
<br>
<br>
<br>
<p>[ <? echo "1" ;?> ] <a href="index.php?go=index"><img src="images/1.gif" alt="" height="21" width="33" border="0"></a></p>
</div>
</div>
</div>
<p></p>
</body>

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

</html>

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

Sirocool

habe es mir auch mal geladen und getestet ist mehr als wow werde es auf jedefall weiter nutzen.
Und weiter so freu mich schon auf die fortsetzung.

Sirocool

Setzt dich doch mit hauke96 in verbindung der baut auch so was.
Vieleicht könnt ihr ja beide was gutes draus machen :-).

Hier

Sirocool

Thx danke das du es schon gemacht hast Schnuffel, ich hätte es jetzt probiert bis es gegangen wäre.

Sirocool

und zwar wenn ich im editor was schreibe und speicher kommt es so raus

Spoiler anzeigen

[autoit]

<font size="2">hhetetetrerefef
bgettggeegge
ghggggeetgeeg
ghgettegege
</font><b><font size="2"><br></div>

[/autoit]

es soll aber so aus sehen

Spoiler anzeigen

[autoit]

<p><b>dies ist ein Test<br>
<font size="2"><br><br></font></b><font size="2">hhetetetrerefef</font><b><font size="2"><br>
<font size="2"><br><br></font></b><font size="2">bgettggeegge</font><b><font size="2"><br>
<font size="2"><br><br></font></b><font size="2">ghggggeetgeeg</font><b><font size="2"><br>
<font size="2"><br><br></font></b><font size="2">ghgettegege</font><b><font size="2"><br>

[/autoit]

was ist da falsch ?

code:

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <Array.au3>
Dim $Code[2]
$Code[0] = '<table width="800" border="0" cellspacing="0" cellpadding="0">'& @CRLF &'<tr height="23">'& @CRLF &'<td valign="top" height="23" background="images/default/tabelle-oben.jpg">' & @CRLF _
&'<div align="center">'& @CRLF & '<table width="800" border="0" cellspacing="0" cellpadding="0" height="23">' & @CRLF & '<tr>'& @CRLF & '<td width="2"></td>'& @CRLF & '<td>'& @CRLF _
&'<div align="left">'&@CRLF& '<font color="black" face="Arial, Helvetica, sans-serif"><b>Top News vom' & @MDAY & "." & @MON & "." & @YEAR & '</b></font><b><font color="black" face="Arial, Helvetica, sans-serif" size="2"><br>'& @CRLF _
&'</font></b></div>'& @CRLF & '</td>'& @CRLF & '<td width="2"></td>'& @CRLF &'</tr>'& @CRLF &'</table>'& @CRLF &'</div>'& @CRLF &'</td>'& @CRLF &'</tr>'& @CRLF &'<tr><td valign="top" background="images/default/tabelle-mitte.jpg">'& @CRLF _
&'<div align="center">'& @CRLF & '<br>'& @CRLF & '<table width="800" border="0" cellspacing="2" cellpadding="0">'& @CRLF & '<tr><td valign="top" width="1">'& @CRLF & '<br>'& @CRLF & '</td>'& @CRLF & '<td valign="top" width="780">'& @CRLF _
&'<div align="left">'& @CRLF
$Code[1] = '</div>'& @CRLF & '</td>'& @CRLF & '<td valign="top" width="1"><br>'& @CRLF & '</td></tr></table></div></td></tr><tr height="23">'& @CRLF & '<td height="23" background="images/default/tabelle-oben.jpg"><br></td></tr></table><br>[1] >>'& @CRLF

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

#cs
HotKeySet("{Return}", "EnterWasPressed")
#ce
#Region ### START Koda GUI section ### Form=c:\users\standart\desktop\koda_1.7.3.0\forms\form1.kxf
$Form1_1 = GUICreate("Form1", 500, 339, -1, -1)
$Edit1 = GUICtrlCreateEdit("", 8, 96, 480, 200)
GUICtrlSetData(-1,"")
$Button1 = GUICtrlCreateButton("Speichern", 416, 304, 75, 25)
$Input1 = GUICtrlCreateInput("", 8, 40, 480, 21)
$Label1 = GUICtrlCreateLabel("Titel", 8, 8, 62, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("Text", 8, 72, 38, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$file = FileOpen(@ScriptDir & "\news.txt", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")

Exit

EndIf
FileWrite($file,$Code[0])
FileWrite($file,'<p><b>' & GUICtrlRead ($Input1)& '<br>'& @CRLF & '<font size="2"><br><br>')
FileWrite($file,'</font></b><font size="2">' & GUICtrlRead ($Edit1)&'</font><b><font size="2"><br>')
FileWrite($file,$Code[1])
FileClose($file)
EndSwitch
WEnd
#cs
Func EnterWasPressed()
GUICtrlSetState($edit1, Send('</font><b><font size="2"><br>')& @CRLF)
EndFunc

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

Sirocool

ist auch in deutschland könnt ihr rtl u.s.w schauen hier

http://online-stream.tv/index.php?i=main
http://youfreetv.net/tv.php

Sirocool

Leider spinnt der ab den donload 4 in der Listenview

Spoiler anzeigen

[autoit]

Func _CalcPerformance($iRead, $bDone, $iSize, $tStart,$Name,$Groesse, $test, $dnr)
;MsgBox(4096, "inet",$dnr-1)
Local $tDiff = TimerDiff($tStart), $iRTime, $sMSG
Local $iToDo = Round(($iSize - $iRead) / 1024, 2)
Local $nKBPerSec = Round($iRead / $tDiff * 1000, 2)
Local $iPercent = Round($iRead / $iSize * 100, 2)
if ($iSize = 0) And Not $bDone Then
$iRTime = "unbekannt"
Else
$iRTime = Round($iToDo / $nKBPerSec, 0)
EndIf
$sMSG = _FormatFileSize(Round($iRead, 0)) & " / " & _FormatFileSize(Round($iSize, 0))
;MsgBox (48, "", $sMSG )
$Time1 = _SecToTime( Round(_FormatFileSize(Round($iSize, 0))/ _SpeedSize($nKBPerSec)),0)
$TimeString = ""
If $Time1[0] > 0 Then $TimeString = $Time1[0] & " sec " & $TimeString
If $Time1[1] > 0 Then $TimeString = $Time1[1] & " min " & $TimeString
If $Time1[2] > 0 Then $TimeString = $Time1[2] & " Std " & $TimeString
If $Time1[3] > 0 Then $TimeString = $Time1[3] & " Tage" & $TimeString
Sleep(275)
_GUICtrlListView_DeleteAllItems($List1)
;ToolTip("File Name.: " & $Name & @CRLF & "Download Grösse.: "& $Groesse & @CRLF & "Status.: " & $sMSG & @CRLF & "Fortschritt.: " & Round($iPercent, 0) & " % " & @CRLF & "Downloadspeed.: " & _SpeedSize($nKBPerSec) & @CRLF & "Downloadzeit ca.: " & $TimeString, -1, -1, "Info", 1)
_GUICtrlListView_SetItemText($List1, $dnr - 1, $Name, 1);Name
_GUICtrlListView_SetItemText($List1, $dnr - 1, $Groesse, 2);Downloadgröße
_GUICtrlListView_SetItemText($List1, $dnr - 1, _FormatFileSize(Round($iRead, 0)), 3);Geladen
;_GUICtrlListView_SetItemText($List1, $dnr - 1, _FormatFileSize(Round($iRead, 0)), 4);Hoster
_GUICtrlListView_SetItemText($List1, $dnr - 1, $TimeString, 5);Status/ Time
_GUICtrlListView_SetItemText($List1, $dnr - 1, _SpeedSize($nKBPerSec), 6);Speed
_GUICtrlListView_SetItemText($List1, $dnr - 1, Round($iPercent, 0) & " % " , 7);Fortschritt
Return Round($iPercent, 1)
EndFunc ;==>_CalcPerformance

[/autoit]

Sirocool

brauche mal da hilfe etwas und zwar habe ich es jetzt vor ,daß das ganze in ListView angeziegt wird was vorherr in toltip war.
oder wie würdet ihr es machen ?

Spoiler anzeigen

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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#Include <Date.au3>
#include-once
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>

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

#include <GuiListView.au3>
#include<GUIImageList.au3>

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

#include <GuiToolbar.au3>
#include <ToolbarConstants.au3>

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

#include <String.au3>
#cs
****************************************************************************************
*** ***
*** Taskbar ***
*** ***
****************************************************************************************
#ce
$Handle = WinGetHandle("[CLASS:Shell_TrayWnd]")
Dim $Pos[2]
$Pos[0] = @DesktopWidth -810
$Pos[1] = @DesktopHeight-350-WInGetPos($Handle)
#cs
****************************************************************************************
*** ***
*** Containerfiles ***
*** ***
****************************************************************************************
#ce
$Container = "*.rsdf|*.ccf|*.dlc"
$one = StringSplit($Container, "|")

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

Global Const $Groesen = StringSplit("KB|MB|GB|TB|?|", "|")
Global Const $SpeedGroesen = StringSplit("kbps|Mbps|Gbps|Tbps|Pbps|?|", "|")
Dim $File[IniRead(@ScriptDir & "\test.ini", "Zahl", "key", Default)] = [IniRead(@ScriptDir & "\test.ini", "Download", Default, Default)]
Dim $Filename[IniRead(@ScriptDir & "\test.ini", "Zahl", "key", Default)] = [IniRead(@ScriptDir & "\test.ini", "Download", Default, Default)]

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

#Region ### START Koda GUI section ### Form=C:\Users\Sirocool\Desktop\Form1.kxf
$Form1 = GUICreate("File Download 1.4", 800, 280, $Pos[0], $Pos[1], $GUI_SS_DEFAULT_GUI, BitOR($WS_EX_ACCEPTFILES,$WS_EX_APPWINDOW,$WS_EX_CONTEXTHELP,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00040008);slide-in
GUISetFont(8, 400, 0, "Verdana")
$MenuItem1 = GUICtrlCreateMenu("Datei")
$MenuItem2 = GUICtrlCreateMenu("MenuItem4", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("MenuItem5", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("MenuItem3", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenu("Werkzeuge")
$MenuItem6 = GUICtrlCreateMenu("Sprache")
$MenuItem7 = GUICtrlCreateMenu("File Hoster")
GUICtrlCreateMenu("||")
GUICtrlSetState(-1, $GUI_DISABLE)
$MenuItem8 = GUICtrlCreateMenu("Entwickler Support")
GUICtrlCreateMenu("||")
GUICtrlSetState(-1, $GUI_DISABLE)
$MenuItem9 = GUICtrlCreateMenu("Hilfe")

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

$ImageList1 = _GUIImageList_Create( 25, 25, 5)
_GUIImageList_AddIcon($ImageList1, @SystemDir & "\wpdshext.dll", 2, True)
_GUIImageList_AddIcon($ImageList1, @SystemDir & "\wpdshext.dll", 6, True)

$hToolbar = _GUICtrlToolbar_Create ($Form1,0)
_GUICtrlToolbar_GetMaxSize ($hToolbar)
_GUICtrlToolbar_SetImageList($hToolBar, $ImageList1)
_GUICtrlToolbar_AddButton ($hToolbar, 0, 0)
_GUICtrlToolbar_AddButton ($hToolbar, 1, 1)

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

GUISetBkColor(0xFFFFFF)
$List1 = GUICtrlCreateListView("Nr.|Paket/Datei|Größe|Geladen|Anbieter|Status|Speed|Fortschritt|#", 0, 40, 800, 197)
;$List1_0 = GUICtrlCreateListViewItem("01|Photoshop|1,01 GB|200,00 Mb|http://www.Megaupload.com|1 h 40 min 06 sec|150 KB/s|25 %",$List1)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 25)
GUICtrlSetFont(-1, 8, 400, 2, "Verdana")
GUICtrlSetColor(-1, 0xC0C0C0)
$Button1 = GUICtrlCreateButton("Suchen", 720, 8, 75, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$Combo1 = GUICtrlCreateCombo("Combo1", 440, 8, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput("Input1", 592, 8, 121, 25)
GUICtrlSetState(-1, $GUI_DISABLE)

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

$StatusBar1 = _GUICtrlStatusBar_Create($Form1)

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

Dim $StatusBar1_PartsWidth[1] = [-1]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, @TAB & "© Copyright 2011 Copyright Sirocool - All Rights Reserved", 0)
_GUICtrlStatusBar_SetBkColor($StatusBar1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg(1)
$WINPOS = WinGetPos($Form1)
Switch $nMsg[1]
Case $Form1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00050004);slide-out
Exit

Case $MenuItem3
Laden()
;$open = FileOpenDialog("Container Files", @DesktopDir & "", "Contanier (*.dlc;*.ccf)|Speedfiles (*.sjc;*.acc)", 1 + 4 )

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

EndSwitch

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

EndSwitch
WEnd

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

Func Laden()
Dim $aRecords
$open = FileOpenDialog("Container Files", @DesktopDir & "", "Contanier (*.dlc;*.ccf)|Speedfiles (*.sjc;*.acc)| Textfiles (*.txt)", 1 + 4 )
If @error Then
MsgBox(4096,"Error" ,"No File(s) chosen")
Else
For $i = 1 To 1000
$Read = FileReadLine($open, $i)
If Not @error Then
$Ex = _StringExplode($Read, "/", 0)
_GUICtrlListView_AddItem($List1, $i)
_GUICtrlListView_SetItemText($List1, _GUICtrlListView_GetItemCount($List1) - 1, $Ex[3], 1)
_GUICtrlListView_SetItemText($List1, _GUICtrlListView_GetItemCount($List1) - 1, $Ex[2], 4)
ElseIf Not _FileReadToArray($open, $aRecords) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
EndIf
Next
EndIf
For $a = 1 To $aRecords[0]
;Msgbox(0,'Record:' & $a, $aRecords[$a]);zurkontrolle
IniWrite(@ScriptDir & "\test.ini", "Download", $a, $aRecords[$a])
$Test = StringSplit($aRecords[$a], "/")
IniWrite(@ScriptDir & "\test.ini", "Namen", $a, $Test[$Test[0]])
IniWrite(@ScriptDir & "\test.ini", "zahl", "Key", $aRecords[0])
Next

For $b = 1 To $aRecords[0]
$var = IniRead(@ScriptDir & "\test.ini", "Download", $b, Default)
;MsgBox(4096, "Result", $var)
Next

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

For $c = 1 To IniRead(@ScriptDir & "\test.ini", "Zahl", "key", Default)
;MsgBox(4096, "inet",IniRead(@ScriptDir & "\test.ini", "Download", $i, Default))
Sleep(50)
If FileExists(@DesktopDir & "\" & "old_" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default)) Then FileDelete(@ScriptDir & "\" & "old_" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default))
If FileExists(@ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default)) Then FileMove(@ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default), @ScriptDir & "\" & "old_" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default))
$sFILESIZE = InetGetSize(IniRead(@ScriptDir & "\test.ini", "Download", $c, Default))
$hDL = InetGet(IniRead(@ScriptDir & "\test.ini", "Download", $c, Default), @ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default),1,1)
$url = IniRead(@ScriptDir & "\test.ini", "Download", $c, Default)
$tStart = TimerInit()
Do
$aDL_Info = InetGetInfo($hDL)
$iPercent = _CalcPerformance($aDL_Info[0], $aDL_Info[2], $sFILESIZE, $tStart,IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default),_FormatFileSize(InetGetSize(IniRead(@ScriptDir & "\test.ini", "Download", $c, Default))),$url)
Until $aDL_Info[2]
InetClose($hDL)
FileDelete(@ScriptDir & "\" & "old_" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default))
ToolTip("Fertig")
ToolTip("")
Next
FileDelete(@ScriptDir & "\test.ini")

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

EndFunc ;==>Laden

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

Func _download()

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

EndFunc

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

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein _CalcPerformance ********
******** Copyright: autoBert (http://www.autoit.de) ********
******** ********
******** ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 000% auf Windows Vista (wurde noch nicht getestet) ********
******** Es läuft zu 100% auf Windows 07 x64 7201 ********
******** Alle anderen Windows Versionen sind nicht getestet! ********
******** ********
******** Mit freundlicher Mithilfe von http://www.autoit.de ********
******** Danke an alle die mir mit diesem Projekt geholfen haben. *******
******** ********
******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
Func _CalcPerformance($iRead, $bDone, $iSize, $tStart,$Name,$Groesse, $test)
Local $tDiff = TimerDiff($tStart), $iRTime, $sMSG
Local $iToDo = Round(($iSize - $iRead) / 1024, 2)
Local $nKBPerSec = Round($iRead / $tDiff * 1000, 2)
Local $iPercent = Round($iRead / $iSize * 100, 2)
if ($iSize = 0) And Not $bDone Then
$iRTime = "unbekannt"
Else
$iRTime = Round($iToDo / $nKBPerSec, 0)
EndIf
$sMSG = _FormatFileSize(Round($iRead, 0)) & " / " & _FormatFileSize(Round($iSize, 0))
;MsgBox (48, "", $sMSG )
$Time1 = _SecToTime( Round(_FormatFileSize(Round($iSize, 0))/ _SpeedSize($nKBPerSec)),0)
$TimeString = ""
If $Time1[0] > 0 Then $TimeString = $Time1[0] & " sec " & $TimeString
If $Time1[1] > 0 Then $TimeString = $Time1[1] & " min " & $TimeString
If $Time1[2] > 0 Then $TimeString = $Time1[2] & " Std " & $TimeString
If $Time1[3] > 0 Then $TimeString = $Time1[3] & " Tage" & $TimeString
Sleep(750)

ToolTip("File Name.: " & $Name & @CRLF & "Download Grösse.: "& $Groesse & @CRLF & "Status.: " & $sMSG & @CRLF & "Fortschritt.: " & Round($iPercent, 0) & " % " & @CRLF & "Downloadspeed.: " & _SpeedSize($nKBPerSec) & @CRLF & "Downloadzeit ca.: " & $TimeString, -1, -1, "Info", 1)

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

Return Round($iPercent, 1)
EndFunc ;==>_CalcPerformance
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein _FormatFileSize & _SpeedSize & _SecToTime ********
******** Copyright: Jam00 (http://www.autoit.de) ********
******** ********
******** ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 000% auf Windows Vista (wurde noch nicht getestet) ********
******** Es läuft zu 100% auf Windows 07 x64 7201 ********
******** Alle anderen Windows Versionen sind nicht getestet! ********
******** ********
******** Mit freundlicher Mithilfe von http://www.autoit.de ********
******** Danke an alle die mir mit diesem Projekt geholfen haben. ********
******** ********
******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
Func _FormatFileSize($sFunc_Size)
Local $i = 0
While $sFunc_Size > 1000
$sFunc_Size /= 1024
$i += 1
WEnd
If $i > 4 Then $i = 4
Return Round($sFunc_Size, 2) & " " & $Groesen[$i]
EndFunc ;==>_FormatFileSize

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

Func _SpeedSize($Speeds)
Local $si = 0
While $Speeds > 1000
$Speeds /= 1024
$si+=1
WEnd
If $si > 5 Then $si = 5
Return Round ($Speeds,2) & " " & $SpeedGroesen[$si]
EndFunc ;==>_SpeedSize

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

Func _SecToTime($Sec, $Flag = 0)
Local $Rechner, $1, $Rest
Local $Zeit[4] = [0, 0, 0, 0]
$Zeit[0] = $Sec
For $1 = 0 To 2
If $1 < 2 Then
$Rechner = 60
Else
$Rechner = 24
EndIf
If $Zeit[$1] > $Rechner - 1 Then
$Rest = Mod($Zeit[$1], $Rechner)
$Zeit[$1 + 1] = ($Zeit[$1] - $Rest) / $Rechner
$Zeit[$1] = $Rest
EndIf
Next
If $Flag = 1 Then
Local $sZeit, $State = 0
For $1 = 3 To 0 Step -1
If $Zeit[$1] > 0 Then
$State = 1
$sZeit &= $Zeit[$1] & ":"
ElseIf $State = 1 Then
$sZeit &= $Zeit[$1] & ":"
EndIf
Next
Return StringTrimRight($sZeit, 1)
EndIf
Return $Zeit
EndFunc ;==>_SecToTime

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

Sirocool

vieleicht hilft dir das etwas weiter so haben wir es damals mal gemacht ich und Jam00.
Dies ist nur ein testscript habe nur noch den von devilBrowser project hatte festplatten crach.

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here
#NoTrayIcon
#RequireAdmin
#include <GUIConstants.au3>
#include <GuiTab.au3>
#include <Array.au3>
#include <Ie.au3>
#include <INet.au3>

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

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <tabConstants.au3>

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

;$Icon2=GUICtrlCreateIcon(@ScriptDir &"\temp\favicon.ico")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test ie mit Tab", 629, 422, 656, 495)
GUISetBkColor(0xFFFFFF)
$icon = GUICtrlCreateIcon("", 0, 10, 12, 16, 16)
$Input1 = GUICtrlCreateInput("http://", 25, 8, 259, 21)
$Button1 = GUICtrlCreateButton("Button1", 304, 8, 75, 25, 0)
$Tab = GUICtrlCreateTab(16, 35, 609, 25)
$Button2 = GUICtrlCreateButton("Quellcode anzeigen", 392, 8, 125, 25, 0)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Dim $ie[1],$Obj[1]
_ArrayAdd ($ie,_IECreateEmbedded())
_ArrayAdd ($ie,_IEErrorHandlerRegister ())

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_NewTab(GUICtrlRead ($Input1))
_start()
Case $Button2
If FileExists(@ScriptDir & "\Temp\Source.txt") Then FileDelete(@ScriptDir & "\Temp\Source.txt")
$Source = _IEDocReadHTML($IE[_GUICtrlTab_GetCurSel($Tab)+2])
MsgBox (0,"",$Source)
FileWrite(@ScriptDir & "\Temp\Source.txt", $Source)
ShellExecute(@ScriptDir & "\Temp\Source.txt")
Case $Button2
_quellcode()

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

;_IENavigate ($Obj,$ie)
EndSwitch
WEnd

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

Func _NewTab($sText)
GUICtrlCreateTabItem ($sText)
_ArrayAdd ($ie ,_IECreateEmbedded())
_ArrayAdd ($Obj,GUICtrlCreateObj($ie[UBound ($ie) -1], 8, 64, 609, 337))
GUICtrlSetResizing ( -1, 802)
_IELoadWait($ie[UBound ($ie) -1],$sText,0)
_IENavigate($ie[UBound ($ie) -1],$sText,0)
_GUICtrlTab_SetCurSel($Tab, _GUICtrlTab_GetItemCount($Tab) -1)
EndFunc
Func _Close()
Local $Zahl = _GUICtrlTab_GetCurSel($Tab)
If $Zahl > -1 Then
_GUICtrlTab_DeleteItem($Tab, $Zahl)
GUICtrlDelete ($Obj[$Zahl +1])
_GUICtrlTab_SetCurSel($Tab, _GUICtrlTab_GetItemCount($Tab) -1)
EndIf
EndFunc

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

Func _start()
$url = GUICtrlRead($Input1)
InetGet($url & "/favicon.ico", 'temp\favicon.ico', 1, 0)
_icon()
EndFunc

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

Func _quellcode()
$body = _INetGetSource ($tab)
$start = '<script type="text/javascript" src="'
$end= 'js/20090331/base.js"></script>'

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

$between = _StringBetween($body,$start,$end,-1,-1)
msgbox(0,"",$between)

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

EndFunc
Func _icon()
$icon = GUICtrlCreateIcon(@ScriptDir &"\temp\favicon.ico" , 0, 10, 10, 16, 16)
GUICtrlSetResizing ( -1, 802)
;$icon_0 = GUICtrlCreateIcon(@ScriptDir &"\temp\favicon.ico", 0, 0, 40, 16, 16)
;GUICtrlSetResizing ( -1, 802)
;GUICtrlCreateIcon(@ScriptDir &"\temp\favicon.ico", 0, 100, 45, 16, 16)
EndFunc

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

Beiträge von Sirocool

IRC-Chat

ScreenLock - Desktop sperren mit Muster

Autoit SysInfo Clock v0.9.9.7 build 2014-08-28 beta

Downloader Problem

Datenaustausch mit Autoit

rtmpt dateien

Grafik Engine Erstellen

Grafik Engine Erstellen

Arengu - Das AutoIt 2D RPG

Maple Desktop

Maple Desktop

hi wollte mal fragen ob sich auch einer mit php auskennt hier

ISN AutoIt Studio

Multiplayer RPG

Hi bräuchte mal eure hilfe dabei

Hi bräuchte mal eure hilfe dabei

WebTv

File Downloader

File Downloader

Browser : Tab Problem