Beiträge von Sirocool

Sirocool

wollen 2 spielfelder machen mit andere auflösung diese ist 1680*1050.
in zeile 288 ist der fehler bitte um hilfe immer wenn ich das haus anklicke im baumenü

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------
The Destroyed City /
#ce ---------------------------------------------

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

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

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

#include <ArrayMore.au3>
#include <GDIPlus.au3>
#include <Misc.au3>

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

#include <Date.au3>

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

#cs ----------------------------------------------
The Destroyed City /Spielfeld/
#ce ---------------------------------------------
If FileExists("") Then
Else
DirCreate("C:\Programme\The Destroyed City\images\Spielfeld\")
FileInstall("images\Spielfeld\header.jpg","C:\Programme\The Destroyed City\images\Spielfeld\header.jpg")
FileInstall("images\Spielfeld\spielfeld.jpg","C:\Programme\The Destroyed City\images\Spielfeld\spielfeld.jpg")
FileInstall("images\Spielfeld\menufeld.jpg","C:\Programme\The Destroyed City\images\Spielfeld\menufeld.jpg")
EndIf
#cs ----------------------------------------------
The Destroyed City /Spielfeld/
#ce ---------------------------------------------

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

FileDelete(@ScriptDir & "\Bau.ini")

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

#Region ### START Koda GUI section ###
$hGui1=GUICreate("The Destroyed City",1500,900, 0, 0)
GUISetIcon("Images\Icon\1.ico")
GUISetBkColor(0xFFFFFF)
$bg1=GUICtrlCreatePic("C:\Programme\The Destroyed City\images\Spielfeld\header.jpg",0, 0, 1500, 90, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Group1 = GUICtrlCreateGroup("Spiel:", 0, 90, 1250, 800)
$bg2=GUICtrlCreatePic(@ScriptDir & "\images\Spielfeld\Spielfeld.jpg",6, 103, 1238, 780)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Group2",1250, 90, 175, 800, -1, $WS_EX_TRANSPARENT)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Tab1 = GUICtrlCreateTab(1250, 110, 172, 500)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Baummenü")
$BauHaus = GUICtrlCreateButton("(Not allowed)",1255, 130, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Haus.bmp", 0)
GUICtrlSetTip(-1, "Haus: | 10xHolz | 10xLehm | 5xEisen | 5xNahrung | 2xWerkzeuge | ")
$BauHolzfaller = GUICtrlCreateButton("(Not allowed)",1310, 130, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Holzfaller.bmp", 0)
GUICtrlSetTip(-1, "Holzfäller:40xHolz | 100xLehm | 50xEisen | 60xNahrung | 5xWerkzeuge | 2xBewohner ")
$BauErzmine = GUICtrlCreateButton("(Not allowed)", 1365, 130,50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Erzmine.bmp", 0)
GUICtrlSetTip(-1, "Erzmine: 100xHolz | 80xLehm | 30xEisen | 40xNahrung | 15xWerkzeuge | 3xBewohner | ")
$BauWeberei = GUICtrlCreateButton("(Not allowed)",1255, 180, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Webstube.bmp", 0)
GUICtrlSetTip(-1, "Webstube: 700xHolz | 360xLehm | 280xEisen | 100xNahrung | 45xWerkzeuge | 15xBewohner |")
$BauGetreidefarm = GUICtrlCreateButton("(Not allowed)", 1310, 380, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Getreidefarm.bmp", 0)
GUICtrlSetTip(-1, "Getreidefam: 70xHolz | 90xLehm | 70xEisen | 25xNahrung | 10xWerkzeuge | 6xBewohner |")
$BauMuhle = GUICtrlCreateButton("(Not allowed)", 1310, 180, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Mühle.bmp", 0)
GUICtrlSetTip(-1, "Mühle: 500xHolz | 440xLehm | 380xEisen | 500xNahrung | 15xWerkzeuge | 10xBewohner |")
$BauSpeicher = GUICtrlCreateButton("(Not allowed)", 1365, 180, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Speicher.bmp", 0)
GUICtrlSetTip(-1, "Speicher: 130xHolz | 160xLehm | 90xEisen | 40xNahrung | 5xWerkzeuge | 2xBewohner |")
$BauScharffarm = GUICtrlCreateButton("(Not allowed)", 1255, 230, 50,50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Scharffarm.bmp", 0)
GUICtrlSetTip(-1, "Scharffarm: 100xHolz | 180xLehm | 140xEisen | 50xNahrung | 25xWerkzeuge | 10xBewohner |")
$BauSchmiede = GUICtrlCreateButton("(Not allowed)", 1310, 230, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Schmied.bmp", 0)
GUICtrlSetTip(-1, "Schmiede: 200xHolz | 450xLehm | 510xEisen | 120xNahrung | 25xWerkzeuge | 10xBewohner | ")
$BauSteinbruch = GUICtrlCreateButton("(Not allowed)", 1365, 230, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "", 0)
GUICtrlSetTip(-1, "Steinbruch")
$BauSteinmetz = GUICtrlCreateButton("(Not allowed)", 1255, 280, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "", 0)
GUICtrlSetTip(-1, "Steinmetz")
$BauGoldmine = GUICtrlCreateButton("(Not allowed)", 1310, 280, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "", 0)
GUICtrlSetTip(-1, "Goldmine")
$BauGoldschmiede = GUICtrlCreateButton("(Not allowed)", 1365, 280, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Goldschmied.bmp", 0)
GUICtrlSetTip(-1, "Goldschmiede: 30.000xHolz | 25.000xLehm | 20.000xEisen | 15.000xNahrung | 10.000xWerkzeuge | 5.000xBewohner | 2.500xWolle | 2.000x Stoffe|")
$BauMamormine = GUICtrlCreateButton("(Not allowed)", 1255, 330, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "", 0)
GUICtrlSetTip(-1, "Mamormine")
$BauMamormetz = GUICtrlCreateButton("(Not allowed)", 1310, 330, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "", 0)
GUICtrlSetTip(-1, "Mamorwetz")
$BauBackerei = GUICtrlCreateButton("(Not allowed)", 1365, 330, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Bäckerei.bmp", 0)
GUICtrlSetTip(-1, "Bäcker: 1000xHolz | 880xLehm | 760xEisen | 1000xNahrung | 30xWerkzeuge | 20xBewohner |")
$Bauelehmgrube = GUICtrlCreateButton("(Not allowed)", 1255, 380, 50, 50, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Images\Welt 1\Button\Lehmgrube.bmp", 0)
GUICtrlSetTip(-1, "Lehmgrube: 80xHolz | 40xLehm | 80xEisen | 50xNahrung | 10xWerkzeuge | 4xBewohner | ")
$TabSheet2 = GUICtrlCreateTabItem("Speicher")
$Holz = GUICtrlCreateLabel("Holz", 1255, 150, 33, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$HolzAnzahl = GUICtrlCreateLabel("20", 1310, 150, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$Eisen = GUICtrlCreateLabel("Eisen", 1255, 180, 41, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$EisenAnzahl = GUICtrlCreateLabel("20", 1310, 180, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$NahrungAnzahl = GUICtrlCreateLabel("20", 1310, 210, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1,0xffffff)
$Nahrung = GUICtrlCreateLabel("Nahrung", 1255, 210, 33, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1,0xffffff)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$WerkzeugAnzahl = GUICtrlCreateLabel("20", 1310, 240, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$Werkzeug = GUICtrlCreateLabel("Werkzeuge", 1255, 240, 33, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$Kohle = GUICtrlCreateLabel("Kohle", 1255, 270, 41, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$KohleAnzahl = GUICtrlCreateLabel("20", 1310, 270, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$Lehm = GUICtrlCreateLabel("Lehm", 1255, 300, 41, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$LehmAnzahl = GUICtrlCreateLabel("20",1310, 300, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$Stein = GUICtrlCreateLabel("Stein", 1255, 330, 37, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$SteinAnzahl = GUICtrlCreateLabel("20", 1310, 330, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$Getreide = GUICtrlCreateLabel("Getreide", 1255, 360, 30, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$GetreideAnzahl = GUICtrlCreateLabel("20", 1310, 360, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$StatusHolz = GUICtrlCreateProgress(1340, 150, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusEisen = GUICtrlCreateProgress(1340, 180, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusNahrung = GUICtrlCreateProgress(1340, 210, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusLehm = GUICtrlCreateProgress(1340, 300, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusStein = GUICtrlCreateProgress(1340, 330, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusGetreide = GUICtrlCreateProgress(1340, 360, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Gold = GUICtrlCreateLabel("Gold", 1255, 390, 34, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$GoldAnzahl = GUICtrlCreateLabel("0", 1310, 390, 12, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$Mamor = GUICtrlCreateLabel("Mamor", 1255, 420, 49, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$MamorAnzahl = GUICtrlCreateLabel("0", 1310, 420, 12, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$StatusWerkzeug = GUICtrlCreateProgress(1340, 240, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusKohle = GUICtrlCreateProgress(1340, 270, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusGold = GUICtrlCreateProgress(1340, 390, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,0)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$StatusMamor = GUICtrlCreateProgress(1340, 420, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,0)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$TabSheet3 = GUICtrlCreateTabItem("Bewohner")
$Burger = GUICtrlCreateLabel("Bürger", 1255, 150, 42, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$BurgerPF = GUICtrlCreateLabel("Platz für", 1255, 180, 52, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
$BurgerAnzahl = GUICtrlCreateLabel("0", 1310, 150, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetTip(-1, "2")
$BurgerPFAnzahl = GUICtrlCreateLabel("0", 1310, 180, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)
GUICtrlSetTip(-1, "2")
$BurgerStatus = GUICtrlCreateProgress(1340, 150, 70, 17, $PBS_SMOOTH)
GUICtrlSetData (-1,100)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$TabSheet4 = GUICtrlCreateTabItem("Welt")
$Welt1 = GUICtrlCreateButton("Welt 1", 1255, 150, 75, 25, 0)
$Welt2 = GUICtrlCreateButton("Welt 2", 1340, 150, 75, 25, 0)
$Welt3 = GUICtrlCreateButton("Welt 3", 1255, 200, 75, 25, 0)
$TabSheet5 = GUICtrlCreateTabItem("Spiel")
$Laden = GUICtrlCreateButton("Laden", 1255, 150, 75, 25, 0)
$Speichern = GUICtrlCreateButton("Speichern", 1340, 150, 75, 25, 0)
$VollBild = GUICtrlCreateButton("Vollbildschirm", 1255, 627, 75, 25, 0)
GUICtrlCreateTabItem("")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Dim $array[1][4]
Dim $bg2[12380]

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

Global $file
$Frei = 1
$Welt = 1
$Stunde = False
$ToolTip = False
$Sec = False
$SpeicherPfad = False
$Min = False
$Bewohner = 0
$BewohnerMax = 0
$HolzAbbau = 0
$Hauser = 0
$BewohnerZahl = 0
$HolzRead = GUICtrlRead($HolzAnzahl)
$BewohnerRead = GUICtrlRead($BurgerAnzahl)
$Speicher = 30
$cordx = -25
$cordy = -25
$Bau1Zahl = 0
$Bau2Zahl = 0
$Bau1Zahl1 = 0
$Bau2Zahl1 = 0
$WeltZahl = 0
Dim $Bau1[10000]
Dim $Bau2[10000]

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

$Zahl = 0
$Welt = 1
$cordx = -25
$cordy = -25
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BauHaus
_Bau("Haus")
Case $Speichern
Call("_speichern")
Case $Laden
Call("_laden")
;Case $VollBild
;GuiSetState(@SW_MAXIMIZE,$hGui1)
EndSwitch
WEnd
Func _Bau($BauArt)
$A = GUICtrlCreatePic(@ScriptDir & "\Images\Welt 1" & $Welt & "\" & $BauArt & ".jpg", $cordx, $cordy, 50, 50)
GUICtrlSetCursor($A, 0)
$WinPos = WinGetPos("The destroyed city")
While 1
_MouseTrap($WinPos[0] + 37, $WinPos[1] + 72, $WinPos[0] + $WinPos[2] - 43, $WinPos[1] + $WinPos[3] - 218)
$Maus = GUIGetCursorInfo()
$x2 = $Maus[0]
$x = $cordx + $x2
$y2 = $Maus[1]
$y = $cordy + $y2
GUICtrlSetPos($A, $x, $y, 50, 50)
$xm = $Maus[0]
$ym = $Maus[1]
$nMsg1 = GUIGetMsg()
Switch $nMsg1
Case $bg2
GUICtrlDelete ($A)
$bild = @ScriptDir & "\Images\Welt 1" & $Welt & "\" & $BauArt & ".jpg"
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($bild)
$breite_bild = _GDIPlus_ImageGetWidth($hImage)
$hoehe_bild = _GDIPlus_ImageGetHeight($hImage)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
$WinPos = WinGetPos("The destroyed city")
_MouseTrap($WinPos[0], $WinPos[1], $WinPos[0] + $WinPos[2], $WinPos[1] + $WinPos[3])
$Pos = GUIGetCursorInfo()
$aktuell_x_links = $Pos[0]
$aktuell_y_oben = $Pos[1]
$aktuell_x_rechts = $Pos[0] + $breite_bild
$aktuell_y_unten = $Pos[1] + $hoehe_bild
For $i = 1 To UBound($array) - 1
$kollion = 0
$archiv_x_links = $array[$i][0]
$archiv_y_oben = $array[$i][1]
$archiv_x_rechts = $array[$i][0] + $array[$i][2]
$archiv_y_unten = $array[$i][1] + $array[$i][3]
If $aktuell_x_links > $archiv_x_links And $aktuell_x_links < $archiv_x_rechts Then $kollion += 1
If $aktuell_y_oben > $archiv_y_oben And $aktuell_y_oben < $archiv_y_unten Then $kollion += 1
If $aktuell_x_rechts > $archiv_x_links And $aktuell_x_rechts < $archiv_x_rechts Then $kollion += 1
If $aktuell_y_unten > $archiv_y_oben And $aktuell_y_unten < $archiv_y_unten Then $kollion += 1
ConsoleWrite($kollion & @CRLF)
If $kollion = 2 Then
ToolTip ("Dort ist bereits etwas Gebaut!")
Return
EndIf
Next
_Array2DAdd($array, $Pos[0] & "|" & $Pos[1] & "|" & $breite_bild & "|" & $hoehe_bild)
GUISetState (@SW_LOCK)
$bg2[$Zahl] = GUICtrlCreatePic($bild, $Pos[0]-25, $Pos[1]-25, $breite_bild, $hoehe_bild)
GUISetState (@SW_UNLOCK)
$Zahl += 1
_MouseTrap ()
ExitLoop
EndSwitch
WEnd
EndFunc ;==>_Bau

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

Func _speichern()
FileDelete($file)
If $SpeicherPfad = False Then
$file = FileSaveDialog("Spielstand speichern:", @ScriptDir & "\saves", "Spielstand (*.sav)", 2 + 16, "The destroyed city.sav")
$SpeicherPfad = $file
Else
$file = $SpeicherPfad
EndIf
If @error = 1 Then
Sleep(0)
Else
FileDelete($file)
$HolzRead = GUICtrlRead($RohstoffeHolzAnzahl)
$EisenRead = GUICtrlRead($RohstoffeEisenAnzahl)
$NahrungRead = GUICtrlRead($RohstoffeNahrungAnzahl)
$WerkzeugRead = GUICtrlRead($RohstoffeWerkzeugAnzahl)
$BewohnerRead = GUICtrlRead($BefoelkerungBuergerAnzahl)
$fileRead = FileRead(@ScriptDir & "\Bau.ini")
FileWrite($file, $fileRead)
IniWrite($file, "Rohstoffe", "Holz", $HolzRead)
IniWrite($file, "Rohstoffe", "Eisen", $EisenRead)
IniWrite($file, "Rohstoffe", "Nahrung", $NahrungRead)
IniWrite($file, "Rohstoffe", "Werkzeug", $WerkzeugRead)
IniWrite($file, "Bewohner", "Bürger", $BewohnerRead)
$Formel = $HolzRead + $EisenRead + $NahrungRead + $WerkzeugRead + $BewohnerRead * 100
$FormelHex = Hex($Formel)
IniWrite($file, "Daten", "Rechnung", $FormelHex)
ToolTip("Spiel Gespeichert")
$ToolTip = True
EndIf
EndFunc ;==>_speichern
Func _laden()
$Welt = 1
$file = FileOpenDialog("Spielstand laden:", @ScriptDir & "\saves", "Spielstand (*.sav)", 1 + 2, "The destroyed city.sav")
If @error = 1 Then
Sleep(0)
Else
$Hauser = 0
$LadenZahl = 0
$SpeicherPfad = $file
$LadenHolz = IniRead($file, "Rohstoffe", "Holz", "")
$LadenEisen = IniRead($file, "Rohstoffe", "Eisen", "")
$LadenNahrung = IniRead($file, "Rohstoffe", "Nahrung", "")
$LadenWerkzeug = IniRead($file, "Rohstoffe", "Werkzeug", "")
$LadenBewohner = IniRead($file, "Bewohner", "Bürger", "")
$LadenFormel = IniRead($file, "Daten", "Rechnung", "")
$LadenFormeDec = Dec($LadenFormel)
$Formel1 = $LadenHolz + $LadenEisen + $LadenNahrung + $LadenWerkzeug + $LadenBewohner * 100
If $Formel1 = $LadenFormeDec Then
GUISetState(@SW_LOCK)
$LadenZahlMax = IniRead($file, "Bau1", "ZahlHaus", "0")
If $LadenZahlMax > 0 Then
Do
$Hauser = $Hauser + 1
$BewohnerMax = $BewohnerMax + 5
$LadenZahl = $LadenZahl + 1
$LadenBau = IniRead($file, "Bau1", "Haus" & $LadenZahl, "0")
$LadenZahl = $LadenZahl + 1
$LadenBau2 = IniRead($file, "Bau1", "Haus" & $LadenZahl, "0")
$Bau1[$Bau1Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Images\Welt 1\" & $Welt & "\Haus.jpg", $LadenBau, $LadenBau2, 50, 50)
$Bau1Zahl1 = $Bau1Zahl1 + 1
Until $LadenZahl = $LadenZahlMax
EndIf
$LadenZahlMax = IniRead($file, "Bau2", "ZahlHaus", "0")
$LadenZahl = 0
If $LadenZahlMax > 0 Then
Do
$Hauser = $Hauser + 1
$BewohnerMax = $BewohnerMax + 5
$LadenBau = IniRead($file, "Bau2", "Haus" & $LadenZahl, "0")
$LadenZahl = $LadenZahl + 1
$LadenBau2 = IniRead($file, "Bau2", "Haus" & $LadenZahl, "0")
$Bau2[$Bau2Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Haus.jpg", $LadenBau, $LadenBau2, 50, 50)
GUICtrlSetState(-1, $GUI_HIDE)
$Bau2Zahl1 = $Bau2Zahl1 + 1
Until $LadenZahl = $LadenZahlMax
EndIf
$LadenZahl = 0
$LadenZahlMax = IniRead($file, "Bau1", "ZahlSägewerk", "0")
If $LadenZahlMax > 0 Then
Do
$HolzAbbau = $HolzAbbau + 1
$LadenZahl = $LadenZahl + 1
$LadenBau = IniRead($file, "Bau1", "Sägewerk" & $LadenZahl, "0")
$LadenZahl = $LadenZahl + 1
$LadenBau2 = IniRead($file, "Bau1", "Sägewerk" & $LadenZahl, "0")
GUICtrlCreatePic(@ScriptDir & "\Sägewerk.jpg", $LadenBau, $LadenBau2, 50, 50)
Until $LadenZahl = $LadenZahlMax
EndIf
$LadenZahlMax = IniRead($file, "Bau2", "ZahlSägewerk", "0")
$LadenZahl = 0
If $LadenZahlMax > 0 Then
Do
$Hauser = $Hauser + 1
$BewohnerMax = $BewohnerMax + 5
$LadenZahl = $LadenZahl + 1
$LadenBau = IniRead($file, "Bau2", "Sägewerk" & $LadenZahl, "0")
$LadenZahl = $LadenZahl + 1
$LadenBau2 = IniRead($file, "Bau2", "Sägewerk" & $LadenZahl, "0")
$Bau2[$Bau2Zahl1] = GUICtrlCreatePic(@ScriptDir & "\Sägewerk.jpg", $LadenBau, $LadenBau2, 50, 50)
GUICtrlSetState(-1, $GUI_HIDE)
$Bau2Zahl1 = $Bau2Zahl1 + 1
Until $LadenZahl = $LadenZahlMax
EndIf
GUISetState(@SW_UNLOCK)
GUICtrlSetData($BefoelkerungPFAnzahl, $BewohnerMax)
GUICtrlSetData($RohstoffeHolzAnzahl, $LadenHolz)
GUICtrlSetData($RohstoffeEisenAnzahl, $LadenEisen)
GUICtrlSetData($RohstoffeNahrungAnzahl, $LadenNahrung)
GUICtrlSetData($RohstoffeWerkzeugAnzahl, $LadenWerkzeug)
GUICtrlSetData($BefoelkerungBuergerAnzahl, $LadenBewohner)
Else
MsgBox(16, "Error", "Spielstand kann nicht geladen werden")
EndIf
EndIf
EndFunc ;==>_laden

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

Sirocool

Ihr ist der 1 bild Link
Was haltet ihr davon von den bild als start

Nein mal Spass bei Seite bild " ich das richtige wollte mal sehn wie Ihr reagiert^^

2 Bild Link

Sirocool

musst mal schauen wo der fehler ist glaube wir müssen mit 2 schleifen arbeiten ansonsten können wir keine rohstoffe erzeugen ich habe es so gemacht das du 0 rohstoffe hast und in sec die rohstoffe erzeugt werden aber da ist fehler drin wenn man 2 hüser baut mit einmal läüft der nicht mehr weiter

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.12.1
Author: Jam00 & Sirocool
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <Misc.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\Benutzeroberflächen\MC.kxf
$MC = GUICreate("Medieval City", 1025, 769, 184, 118)
$Group1 = GUICtrlCreateGroup("Spiel:", 3, 3, 1018, 580)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Hintergrund.jpg", 9, 18, 1000, 560)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Group2", 3, 585, 1015, 178, -1, $WS_EX_TRANSPARENT)
$Tab1 = GUICtrlCreateTab(9, 600, 1003, 157)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Baummenü")
$BauHaus = GUICtrlCreateButton("(Not allowed)", 15, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir & "\Haus.bmp", 0)
GUICtrlSetTip(-1, "Haus: Holz 3")
$BauSaegewerk = GUICtrlCreateButton("(Not allowed)", 69, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir & "\Sägegrube.bmp", 0)
GUICtrlSetTip(-1, "Sägegrube: Holz 2 Eisen 1 Wekzeug 2 Bürger 5")
$BauErzschmelze = GUICtrlCreateButton("(Not allowed)", 123, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir & "\Erzschmelze.bmp", 0)
GUICtrlSetTip(-1, "Erzschmelze: Holz 4 Eisen 2 Werkzeug 3 Bürger 10 (Erzmine benötigt")
$BauErzmine = GUICtrlCreateButton("(Not allowed)", 123, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir & "\Erzmine.bmp", 0)
GUICtrlSetTip(-1, "Erzmine: Holz 4 Eisen 1 Werkzeug 2 Bürger 10")
$BauKuhfarm = GUICtrlCreateButton("(Not allowed)", 15, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir & "\Kuhfarm.bmp", 0)
GUICtrlSetTip(-1, "Kuhfam: Holz 4 Eisen 0 Werkzeug 3 Bürger 5")
$BauMetzkerei = GUICtrlCreateButton("(Not allowed)", 69, 681, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir & "\Metzkerei.bmp", 0)
GUICtrlSetTip(-1, "Metzkerei: Holz 3 Eisen 2 Werkzeug 2 Bürger 5 (Kuhfarm benötigt) ")
$TabSheet2 = GUICtrlCreateTabItem("Rohstoffe")
$RohstoffeHolz = GUICtrlCreateLabel("Holz", 15, 627, 33, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Deine Holzlager")
$RohstoffeHolzAnzahl = GUICtrlCreateLabel("", 94, 627, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$RohstoffeEisen = GUICtrlCreateLabel("Eisen", 15, 645, 41, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Dein Eisenlager")
$RohstoffeEisenAnzahl = GUICtrlCreateLabel("", 94, 645, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$RohstoffeNahrungAnzahl = GUICtrlCreateLabel("", 94, 681, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$RohstoffeNahrung = GUICtrlCreateLabel("Nahrung", 15, 681, 59, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$RohstoffeWerkzeugAnzahl = GUICtrlCreateLabel("20", 94, 663, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$RohstoffeWerkzeug = GUICtrlCreateLabel("Werkzeuge", 15, 663, 79, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$TabSheet3 = GUICtrlCreateTabItem("Befölkerung")
$BefoelkerungBuergerAnzahl = GUICtrlCreateLabel("0", 93, 627, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$BefoelkerungBuerger = GUICtrlCreateLabel("Bürger", 14, 627, 48, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$BefoelkerungPFAnzahl = GUICtrlCreateLabel("0", 93, 646, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$BefoelkerungPF = GUICtrlCreateLabel("Plaz für", 14, 646, 54, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$Gold = GUICtrlCreateLabel("Gold", 14, 670, 54, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$GoldMax = GUICtrlCreateLabel("0", 93, 670, 75, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$TabSheet4 = GUICtrlCreateTabItem("Spielstand")
$Speichern = GUICtrlCreateButton("Speichern", 15, 627, 75, 25, 0)
$Laden = GUICtrlCreateButton("Laden", 90, 627, 75, 25, 0)
GUICtrlCreateTabItem("")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

$ToolTip = False
$Sec = False
$SpeicherPfad = False
$Min = False
$Bewohner = 0
$BewohnerMax = 0
$sec = False
$gold = 0
$goldMax = 0
$secRoh = False
$RohstoffeEisen = 0
$RohstoffeHolz = 0
$RohstoffeNahrung = 0

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

While 1
If $Min = False Then
$Min = @Min
ElseIf $Min + 1 < @Min Then
$min = @Min
$Bewohner = $Bewohner +1
GUICtrlSetData ($BefoelkerungBuergerAnzahl,$Bewohner)
EndIf
If $sec = False Then
$sec = @sec
ElseIf $sec + 1 < @sec Then
$sec = @sec
$gold = $gold +1
GUICtrlSetData ($GoldMax,$Gold)
EndIf
If $secRoh = False Then
$secRoh = @sec
ElseIf $secRoh + 1 < @sec Then
$secRoh = @sec
$RohstoffeHolz = $RohstoffeHolz +1
$RohstoffeEisen = $RohstoffeEisen +1
$RohstoffeNahrung = $RohstoffeNahrung + 1
GUICtrlSetData ($RohstoffeEisenAnzahl,$RohstoffeEisen)
GUICtrlSetData ($RohstoffeHolzAnzahl,$RohstoffeHolz)
GUICtrlSetData ($RohstoffeNahrungAnzahl,$RohstoffeNahrung)
EndIf
If $ToolTip = True Then
If $Sec = False Then
$Sec = @SEC
Else
If $Sec + 5 = @SEC Then
ToolTip ("")
$ToolTip = False
EndIf
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$SpeichernMSG = MsgBox (3+32,"Speichern","Möchtest du das spiel Speichern?")
If $SpeichernMSG = 6 Then
Call ("_speichern")
EndIf
If $SpeichernMSG = 3 Then
Exit
ElseIf $SpeichernMSG = 7 Then
Exit
EndIf
Case $Speichern
Call ("_speichern")
Case $Laden
Call ("_laden")
Case $BauHaus
_Bau("Haus")
EndSwitch
WEnd

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

Func _speichern()
If $SpeicherPfad = False Then
$file = FileSaveDialog ("Spielstand speichern:", @ScriptDir & "\saves", "Spielstand (*.*)", 2, "autosave.sav")
$SpeicherPfad = $file
Else
$file = $SpeicherPfad
EndIf
$HolzRead = GUICtrlRead ($RohstoffeHolzAnzahl)
$EisenRead = GUICtrlRead ($RohstoffeEisenAnzahl)
$NahrungRead = GUICtrlRead ($RohstoffeNahrungAnzahl)
$WerkzeugRead = GUICtrlRead ($RohstoffeWerkzeugAnzahl)
IniWrite ($file,"Rohstoffe","Holz", $HolzRead)
IniWrite ($file,"Rohstoffe","Eisen", $EisenRead)
IniWrite ($file,"Rohstoffe","Nahrung", $NahrungRead)
IniWrite ($file,"Rohstoffe","Werkzeug", $WerkzeugRead)
$Formel = $HolzRead + $EisenRead + $NahrungRead + $WerkzeugRead *100
$FormelHex = Hex ($Formel)
IniWrite ($file,"Daten","Rechnung",$FormelHex)
ToolTip ("Spiel Gespeichert")
$ToolTip = True
EndFunc
Func _laden()
$file = FileOpenDialog ("Spielstand laden:", @ScriptDir & "\saves", "Spielstand (*.*)", 1 + 2, "autosave.sav")
$SpeicherPfad = $file
$LadenHolz = IniRead ($file, "Rohstoffe","Holz","")
$LadenEisen = IniRead ($file, "Rohstoffe","Eisen","")
$LadenNahrung = IniRead ($file, "Rohstoffe","Nahrung","")
$LadenWerkzeug = IniRead ($file, "Rohstoffe","Werkzeug","")
$LadenFormel = IniRead ($file,"Daten","Rechnung","")
$LadenFormeDec = Dec ($LadenFormel)
$Formel1 = $LadenHolz + $LadenEisen + $LadenNahrung + $LadenWerkzeug *100
If $Formel1 = $LadenFormeDec Then
GUICtrlSetData ($RohstoffeHolzAnzahl,$LadenHolz)
GUICtrlSetData ($RohstoffeEisenAnzahl,$LadenEisen)
GUICtrlSetData ($RohstoffeNahrungAnzahl,$LadenNahrung)
GUICtrlSetData ($RohstoffeWerkzeugAnzahl,$LadenWerkzeug)
Else
MsgBox (16,"Error","Spielstand kann nicht geladen werden")
EndIf
EndFunc
Func _Bau ($BauArt)
$WinPos = WinGetPos ("Medieval City")
_MouseTrap ($WinPos[0]+52, $WinPos[1]+97, $WinPos[0] + $WinPos[2] -78, $WinPos[1] + $WinPos[3]-245)
While 1
$nMsg1 = GUIGetMsg()
Switch $nMsg1
Case $Pic1
$HolzRead = GUICtrlRead ($RohstoffeHolzAnzahl)
$EisenRead = GUICtrlRead ($RohstoffeEisenAnzahl)
$NahrungRead = GUICtrlRead ($RohstoffeHolzAnzahl)
$WerkzeugRead = GUICtrlRead ($RohstoffeWerkzeugAnzahl)
$Pos = MouseGetPos ()
If $BauArt = "Haus" Then
If $HolzRead - 3 < 0 Then
ToolTip ("Du hast nicht genügend Rohstoffe")
$ToolTip = True
ElseIf $HolzRead -3 > 0 Then
$GoldMax = $GoldMax +10
$BewohnerMax = $BewohnerMax +5
GUICtrlSetData ($gold,$GoldMax)
GUICtrlSetData ($BefoelkerungPFAnzahl,$BewohnerMax)
GUISetState(@SW_LOCK)
GUICtrlCreatePic (@ScriptDir & "\Haus.gif",$Pos[0] -227,$Pos[1]-195,75,100)
GUISetState(@SW_UNLOCK)
GUICtrlSetData ($RohstoffeHolzAnzahl,$HolzRead -3)
EndIf
EndIf
_MouseTrap ()
ExitLoop
EndSwitch
WEnd
EndFunc

[/autoit]

Sirocool

also wenn du dein haus baust das du dann auch löchen oder bearbeiten kannst aber fuktioniert noch nicht richtig und wegen der anderen sach habe ich noch kein plan da ich auch noch nicht lange ihr bin^^

änderung ist in zeile 90 bis 93 da wo case pic 1 ist

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\Benutzeroberflächen\MC.kxf
$MC = GUICreate("Medieval City", 1025, 769, 184, 118)
$Group1 = GUICtrlCreateGroup("Spiel:", 3, 3, 1018, 580)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Hintergrund.jpg", 9, 18, 1000, 560)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Group2", 3, 585, 1015, 178, -1, $WS_EX_TRANSPARENT)
$Tab1 = GUICtrlCreateTab(9, 600, 1003, 157)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Baummenü")
$BauHaus = GUICtrlCreateButton("(Not allowed)", 15, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1,"C:\Dokumente und Einstellungen\Administrator\Desktop\Daten\Haus.bmp", 0,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Haus: Holz 3")
$BauSaegewerk = GUICtrlCreateButton("(Not allowed)", 72, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir & "\Sägegrube.bmp", 0)
GUICtrlSetTip(-1, "Sägegrube: Holz 2 Eisen 1 Wekzeug 2")
$Button2 = GUICtrlCreateButton("(Not allowed)", 71, 682, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir & "\Erzschmelze.bmp", 0)
GUICtrlSetTip(-1, "Erzschmelze: Holz 4 Eisen 2 Werkzeug 3 (Erzmine benötigt")
$Button1 = GUICtrlCreateButton("(Not allowed)", 14, 682, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir & "\Erzmine.bmp", 0)
GUICtrlSetTip(-1, "Erzmine: Holz 4 Eisen 1 Werkzeug 2")
$TabSheet2 = GUICtrlCreateTabItem("Rohstoffe")
$RohstoffeHolz = GUICtrlCreateLabel("Holz", 15, 627, 33, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Deine Holzlager")
$RohstoffeHolzAnzahl = GUICtrlCreateLabel("20", 94, 627, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$RohstoffeEisen = GUICtrlCreateLabel("Eisen", 15, 645, 41, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Dein Eisenlager")
$RohstoffeEisenAnzahl = GUICtrlCreateLabel("20", 94, 645, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$RohstoffeNahrungAnzahl = GUICtrlCreateLabel("20", 94, 681, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$RohstoffeNahrung = GUICtrlCreateLabel("Nahrung", 15, 681, 59, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$RohstoffeWerkzeug = GUICtrlCreateLabel("20", 94, 663, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$RohstoffeWerkzeugAnzahl = GUICtrlCreateLabel("Werkzeuge", 15, 663, 79, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$TabSheet3 = GUICtrlCreateTabItem("Befölkerung")
$TabSheet4 = GUICtrlCreateTabItem("Spielstand")
$Speichern = GUICtrlCreateButton("Speichern", 15, 627, 75, 25, 0)
$Laden = GUICtrlCreateButton("Laden", 90, 627, 75, 25, 0)
GUICtrlCreateTabItem("")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Bau = "False"
Global $1
$ToolTip = False
$Sec = False
While 1
If $ToolTip = True Then
If $Sec = False Then
$Sec = @SEC
Else
If $Sec + 5 = @SEC Then
ToolTip ("")
$ToolTip = False
EndIf
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BauHaus
$Bau = "Haus"
$WinPos = WinGetPos ("Medieval City")
_MouseTrap ($WinPos[0]+52, $WinPos[1]+97, $WinPos[0] + $WinPos[2] -78, $WinPos[1] + $WinPos[3]-245)
Case $Pic1
$mnu = GUICtrlCreateContextMenu($Pic1)
$mnu_edit = GUICtrlCreateMenuItem('Bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Löschen', $mnu)
If $Bau = "False" Then

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

Sleep (1)
Else
Call ("_Bau")
EndIf

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

Case $Speichern
_save()
Case $Laden
_load()

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

EndSwitch
WEnd
;....Speichern & Load
Func _save()
$file = FileSaveDialog ("Spielstand speichern:", @ScriptDir & "\saves", "Spielstand (*.*)", 2, "autosave.sav")
If @error = 1 then Return
FileOpen ($file, 2)
FileWriteLine ($file, $RohstoffeEisen)
FileWriteLine ($file, $RohstoffeHolz)
FileWriteLine ($file, $Label1)
FileWriteLine ($file, $Label2)
FileClose ($file)
EndFunc
Func _load()
$file = FileOpenDialog ("Spielstand laden:", @ScriptDir & "\saves", "Spielstand (*.*)", 1 + 2, "autosave.sav")
If @error = 1 then Return
FileOpen ($file, 0)
$RohstoffeEisen = FileReadLine ($file, 1)
$RohstoffeHolz = FileReadLine ($file, 2)
$Label1 = FileReadLine ($file, 3)
$Label2 = FileReadLine ($file, 4)
FileClose ($file)
EndFunc
;......Bauobtion
Func _Bau ()
$HolzRead = GUICtrlRead ($RohstoffeHolzAnzahl)
$EisenRead = GUICtrlRead ($RohstoffeEisenAnzahl)
$NahrungRead = GUICtrlRead ($RohstoffeHolzAnzahl)
$WerkzeugRead = GUICtrlRead ($RohstoffeWerkzeugAnzahl)
$Pos = MouseGetPos ()
GUICtrlDelete ($1)
If $Bau = "Haus" Then
If $HolzRead - 3 < 0 Then
ToolTip ("Du hast nich genügend Rohstoffe")
$ToolTip = True
ElseIf $HolzRead -3 > 0 Then
GUISetState(@SW_LOCK)
GUICtrlCreatePic (@ScriptDir & "\Haus.jpg",$Pos[0] -227,$Pos[1]-195,100,100)
GUISetState(@SW_UNLOCK)
GUICtrlSetData ($RohstoffeHolzAnzahl,$HolzRead -3)
EndIf
EndIf
$Bau = "False"
_MouseTrap ()
EndFunc

[/autoit]

Sirocool

wo das ganze geflackert hat ich teste mal aus

Sirocool

denken das das ein bot ist müsstest dir nurmal den code downloaden und die datein oben dann würdest es sehn Raupi das das kein bot ist

aber egal ich würde ja sonst nicht helfen kenne die regeln

Sirocool

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.12.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\Benutzeroberflächen\MC.kxf
$MC = GUICreate("Medieval City", 1025, 769, 184, 118)
$Group1 = GUICtrlCreateGroup("Spiel:", 3, 3, 1018, 580)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\Hintergrund.jpg", 9, 18, 1000, 560)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Group2", 3, 585, 1015, 178, -1, $WS_EX_TRANSPARENT)
$Tab1 = GUICtrlCreateTab(9, 600, 1003, 157)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Baummenü")
$BauHaus = GUICtrlCreateButton("(Not allowed)", 15, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Haus.bmp", 0,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Haus: Holz 3")
$BauSaegewerk = GUICtrlCreateButton("(Not allowed)", 72, 627, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Sägegrube.bmp", 0,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Sägegrube: Holz 2 Eisen 1 Wekzeug 2")
$Button2 = GUICtrlCreateButton("(Not allowed)", 71, 682, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Erzschmelze.bmp", 0,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Erzschmelze: Holz 4 Eisen 2 Werkzeug 3 (Erzmine benötigt")
$Button1 = GUICtrlCreateButton("(Not allowed)", 14, 682, 54, 54, $BS_BITMAP)
GUICtrlSetImage(-1, @ScriptDir & "\Erzmine.bmp", 0,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetTip(-1, "Erzmine: Holz 4 Eisen 1 Werkzeug 2")
$TabSheet2 = GUICtrlCreateTabItem("Rohstoffe")
$RohstoffeHolz = GUICtrlCreateLabel("Holz", 15, 627, 33, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Deine Holzlager")
$RohstoffeHolzAnzahl = GUICtrlCreateLabel("20", 94, 627, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$RohstoffeEisen = GUICtrlCreateLabel("Eisen", 15, 645, 41, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Dein Eisenlager")
$RohstoffeEisenAnzahl = GUICtrlCreateLabel("20", 94, 645, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$RohstoffeNahrungAnzahl = GUICtrlCreateLabel("20", 94, 681, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$RohstoffeNahrung = GUICtrlCreateLabel("Nahrung", 15, 681, 59, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$Label1 = GUICtrlCreateLabel("20", 94, 663, 20, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Werkzeuge", 15, 663, 79, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1, "Dein Nahrungslager")
$TabSheet3 = GUICtrlCreateTabItem("Befölkerung")
$TabSheet4 = GUICtrlCreateTabItem("Spielstand")
$Speichern = GUICtrlCreateButton("Speichern", 15, 627, 75, 25, 0)
$Laden = GUICtrlCreateButton("Laden", 90, 627, 75, 25, 0)
GUICtrlCreateTabItem("")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Bau = "False"
Global $1
While 1
If $Bau = "Haus" Then
GUICtrlDelete ($1)
$Pos = MouseGetPos ()
$1 = GUICtrlCreatePic (@ScriptDir & "\Haus.jpg",$Pos[0] -200,$Pos[1]-200,100,100)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BauHaus
$Bau = "Haus"
$WinPos = WinGetPos ("Medieval City")
_MouseTrap ($WinPos[0]+10, $WinPos[1]+97, $WinPos[0] + $WinPos[2] -78, $WinPos[1] + $WinPos[3]-245)
Case $Pic1
If $Bau = "False" Then
Sleep (1)
Else
Call ("_Bau")
EndIf
Case $Speichern
_save()
Case $Laden
_load()
EndSwitch
WEnd
Func _save()
$file = FileSaveDialog ("Spielstand speichern:", @ScriptDir & "\saves", "Spielstand (*.*)", 2, "autosave.sav")
If @error = 1 then Return
FileOpen ($file, 2)
FileWriteLine ($file, $RohstoffeEisen)
FileWriteLine ($file, $RohstoffeHolz)
FileWriteLine ($file, $Label1)
FileWriteLine ($file, $Label2)
FileClose ($file)
EndFunc
Func _load()
$file = FileOpenDialog ("Spielstand laden:", @ScriptDir & "\saves", "Spielstand (*.*)", 1 + 2, "autosave.sav")
If @error = 1 then Return
FileOpen ($file, 0)
$RohstoffeEisen = FileReadLine ($file, 1)
$RohstoffeHolz = FileReadLine ($file, 2)
$Label1 = FileReadLine ($file, 3)
$Label2 = FileReadLine ($file, 4)
FileClose ($file)
EndFunc
Func _Bau ()
$Bau = "False"
$Pos = MouseGetPos ()
GUICtrlDelete ($1)
If $Bau = "Haus" Then
GUICtrlCreatePic (@ScriptDir & "\Haus.jpg",$Pos[0] -200,$Pos[1]-200,100,100)
EndIf
_MouseTrap ()
EndFunc

[/autoit]

Sirocool

weil die sperrfunktion nicht im Firfox oder im Internet explorder abgefragt wird über eine funktion aber ihr der code weil der browser selber ruft ja nicht die sperrungs.ini auf aber wenn du eine idee dazu hast wie firfox das lernen tut oder andere browser dann immer herr damit mit den script^^

[autoit]

#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
;Global Const $LVFI_PARAM = 0x0001
;Global Const $LVIF_TEXT = 0x0001
;Global Const $LVM_FIRST = 0x1000
Global Const $LVM_GETITEM = $LVM_FIRST + 5
;Global Const $LVM_FINDITEM = $LVM_FIRST + 13
;Global Const $LVM_SETSELECTEDCOLUMN= $LVM_FIRST + 140
Dim $nCurCol = -1
Dim $nSortDir = 1
Dim $bSet = 0
Dim $nCol = -1
Dim $nr, $aSperrungdaten
#Region ### START Koda GUI section ####
$Form1 = GUICreate('Sperrung von Internet Seiten', 300, 300, 0, 0)
GUISetIcon("Icon\Restricted.ico")
GUISetBkColor(0xFFFFFF)
$Input1 = GUICtrlCreateInput("", 0, 0, 300, 21)
$Button = GUICtrlCreateButton("Sperren", 100, 25, 75, 21, 0)
$Listview1 = GUICtrlCreateListView("Nr|Webseite|", 0, 50, 300, 250)
GUICtrlSetFont($Listview1, 8, 400, 0, "MS Sans Serif")
$mnu = GUICtrlCreateContextMenu($Listview1)
;$mnu_edit = GUICtrlCreateMenuItem('Webseite Bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Webseite Löschen', $mnu)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $SperrungINI = @ScriptDir & "\Sperrung.ini"
If Not FileExists($SperrungINI) Then
IniWrite($SperrungINI, "Sperrung", 10000, "www.Torrent.to")
IniWrite($SperrungINI, "edit", 10000, "")
IniWrite($SperrungINI, "Sperrung", 10001, "www.speedtorrent.to")
IniWrite($SperrungINI, "edit", 10001, "")
IniWrite($SperrungINI, "Sperrung", 10002, "www.Bitreactor.to")
IniWrite($SperrungINI, "edit", 10002, "")
IniWrite($SperrungINI, "Numbers", "last", 10002)
EndIf
Global $aSperrung = IniReadSection($SperrungINI, "Sperrung")
Local $lastNum = IniRead($SperrungINI, "Numbers", "last", 9999)
_FillListView()
GUISetState(@SW_SHOW, $Form1)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button
$lastNum += 1
$Input = GUICtrlRead($Input1)
IniWrite($SperrungINI, "Numbers", "last", $lastNum)
IniWrite($SperrungINI, "Sperrung", $lastNum, $Input)
IniWrite($SperrungINI, "edit", $lastNum, "")
GUICtrlSetData($Input1, "")
$aSperrung = IniReadSection($SperrungINI, "Sperrung")
_FillListView()
Case $mnu_del
$index = _GUICtrlListView_GetSelectedIndices($Listview1)
$del_Key = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 0)
IniDelete($SperrungINI, "Sperrung", $del_Key)
$aSperrung = IniReadSection($SperrungINI, "Sperrung")
_GUICtrlListView_DeleteItemsSelected($Listview1)
Case $Listview1
$bSet = 0
$nCurCol = $nCol
GUICtrlSendMsg($Listview1, $LVM_SETSELECTEDCOLUMN, GUICtrlGetState($Listview1), 0)
DllCall("user32.dll", "int", "InvalidateRect", "hwnd", GUICtrlGetHandle($Listview1), "int", 0, "int", 1)
EndSwitch
EndSwitch
WEnd
Func _FillListView()
_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 9999 Then Return
For $i = 1 To UBound($aSperrung) - 1
GUICtrlCreateListViewItem($aSperrung[$i][0] & '|' & $aSperrung[$i][1], $Listview1)
Next
EndFunc
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
$hWndListView = $Listview1
If Not IsHWnd($Listview1) Then $hWndListView = GUICtrlGetHandle($Listview1)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $NM_RCLICK
Return $GUI_RUNDEFMSG
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc
Func LVSort($hWnd, $nItem1, $nItem2, $nColumn)
Local $nSort
If $nColumn = $nCurCol Then
If Not $bSet Then
$nSortDir = $nSortDir * - 1
$bSet = 1
EndIf
Else
$nSortDir = 1
EndIf
$nCol = $nColumn
$val1 = GetSubItemText($Listview1, $nItem1, $nColumn)
$val2 = GetSubItemText($Listview1, $nItem2, $nColumn)
If $nColumn = 2 Then
$val1 = StringRight($val1, 4) & StringMid($val1, 4, 2) & StringLeft($val1, 2)
$val2 = StringRight($val2, 4) & StringMid($val2, 4, 2) & StringLeft($val2, 2)
EndIf
$nResult = 0
If $val1 < $val2 Then
$nResult = -1
ElseIf $val1 > $val2 Then
$nResult = 1
EndIf
$nResult = $nResult * $nSortDir
Return $nResult
EndFunc
Func GetSubItemText($nCtrlID, $nItemID, $nColumn)
Local $stLvfi = DllStructCreate("uint;ptr;int;int[2];int")
DllStructSetData($stLvfi, 1, $LVFI_PARAM)
DllStructSetData($stLvfi, 3, $nItemID)
Local $stBuffer = DllStructCreate("char[260]")
$nIndex = GUICtrlSendMsg($nCtrlID, $LVM_FINDITEM, -1, DllStructGetPtr($stLvfi));
Local $stLvi = DllStructCreate("uint;int;int;uint;uint;ptr;int;int;int;int")
DllStructSetData($stLvi, 1, $LVIF_TEXT)
DllStructSetData($stLvi, 2, $nIndex)
DllStructSetData($stLvi, 3, $nColumn)
DllStructSetData($stLvi, 6, DllStructGetPtr($stBuffer))
DllStructSetData($stLvi, 7, 260)
GUICtrlSendMsg($nCtrlID, $LVM_GETITEM, 0, DllStructGetPtr($stLvi));
$sItemText = DllStructGetData($stBuffer, 1)
$stLvi = 0
$stLvfi = 0
$stBuffer = 0
Return $sItemText
EndFunc

[/autoit]

Sirocool

von der sperrung oder wie oder vom ganzen browser

Sirocool

da ist diese funktion mit drin webseiten zu sperren,aber ob dies auch im normalen browser üblich ist weiss ich nicht ihr der link ist aber noch im bau also noch nicht alle funktionen gehen so wie beim normalen browser wie speichern und so

Sirocool

danke für deine schnelle antwort^^

Sirocool

[autoit]

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

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

AutoIt Version: 3.2.12.1
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
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstants.au3>
#include <IE.au3>
#include <INet.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <String.au3>

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

If FileExists("") Then
Else
DirCreate("C:\Programme\Devil Browser\images\toolbar\thema\")
FileInstall("images\toolbar\thema\bg.bmp","C:\Programme\Devil Browser\images\toolbar\thema\bg.bmp")
EndIf

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 612, 238, 193, 125)
$Input1 = GUICtrlCreateInput("Input1", 8, 16, 305, 21)
$bg=GUICtrlCreatePic("C:\Programme\Devil Browser\images\toolbar\thema\bg.bmp",0, 0, 705, 48, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("Button1", 320, 16, 75, 25, 0)
$Input2 = GUICtrlCreateInput("Input2", 400, 16, 121, 21)
$Button2 = GUICtrlCreateButton("Button2", 528, 16, 75, 25, 0)
$Edit1 = GUICtrlCreateEdit("", 16, 72, 185, 89)
GUICtrlSetData(-1, "Edit1")
$Radio1 = GUICtrlCreateRadio("Radio1", 24, 200, 113, 17)
$Radio2 = GUICtrlCreateRadio("Radio2", 144, 200, 113, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

aber dann noch die butten und die eingabe fuktioniert aber geht nicht so wie ich das will also das Bild soll nur als Hintergrund diennen mehr nicht
so das die Butten und $Input1 & $Input 2 funktionieren mir geht es nur um die zeile 37 bis 41

Ps bild ist mit im download dabei

Sirocool

1.Frage ist wichtig
brauche mal hilfe bei Case $MenuItem9 in der Zeile 130
und zwar soll er die datein so schreiben wie ich sie angebe nicht so wie er es jetzt macht test.xml.php.html so speichert er sie mir ab und es ist nichts drin soll aber bitte so sein wie im browser üblich ist danke

2.Farge kann noch warten

ist wie baue ich mehre $Form1 ein und wo müssen dann die befehle für die $Form´s hin die ich mit rein mache bächte mal ein bei spiel

[autoit]

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.10.0
Author: Sirocool

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

Script Function: Browser
Template AutoIt script.
#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here
#include <GUIConstants.au3>
#include <IE.au3>
#include <INet.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#cs------------------------------------------------
Fragt ab ob du online bist
#ce ------------------------------------------------
; Script_-
_waitinetconnect()
MsgBox(0,"Devil Browser","Jetzt bist du online!!")

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

Func _waitinetconnect()
While Not Ping("www.Autoit.de")
Sleep(1000)
WEnd
EndFunc
;-------------------------------------------------

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

If FileExists("") Then
Else
DirCreate("C:\Browser\images\toolbar\thema\")
FileInstall("images\toolbar\thema\zurrück.bmp","C:\Browser\images\toolbar\thema\zurrück.bmp")
FileInstall("images\toolbar\thema\vorwärts.bmp","C:\Browser\images\toolbar\thema\vorwärts.bmp")
FileInstall("images\toolbar\thema\aktualisiren.bmp","C:\Browser\images\toolbar\thema\aktualisiren.bmp")
FileInstall("images\toolbar\thema\stop.bmp","C:\Browser\images\toolbar\thema\stop.bmp")
FileInstall("images\toolbar\thema\home.bmp","C:\Browser\images\toolbar\thema\home.bmp")
FileInstall("images\toolbar\thema\logo.bmp","C:\Browser\images\toolbar\thema\logo.bmp")
EndIf

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

Local $SperrungINI = @ScriptDir & "\Sperrung.ini"

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

Dim $version = "0.0.8"
;..A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z.

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

#Region ### START Koda GUI section ###
$Form1=GUICreate("Devil Browser",@DesktopWidth,@DesktopHeight, 0, 0)
GUISetIcon("Icon\favicon.ico")
GUISetStyle(0xffffff)
GUISetCursor (0)
GUISetBkColor(0xFFFFFF)
$ie = _IECreateEmbedded()
$Group1 = GUICtrlCreateObj($ie, 0, 25, @DesktopWidth, 950)
GUICtrlSetFont($Group1, 8, 400, 0, "MS Sans Serif")
$ie.navigate("http://autoit.de/")
$Combo1 = GUICtrlCreateCombo("Suchmaschienen", 653, 0, 129, 21)
GUICtrlSetData(-1,"-----------------------------------------|Fireball|Google|MSN|Yahoo|-----------------------------------------|Versandhäuser|-----------------------------------------|Bauer|Neckermann|Otto|Schwab|Quelle|-----------------------------------------|Internet Versand|-----------------------------------------|Amazon|Ebay|")
$Input1 = GUICtrlCreateInput("Input1",782, 0, 129, 21)
$Button1 = GUICtrlCreateButton("Suchen", 911, 0, 75, 21, 0)
$Icon = GUICtrlCreateInput("Icon", 238, 0, 33, 21)
$Input2=GUICtrlCreateInput("", 271, 0, 297, 21)
$Button2 = GUICtrlCreateButton("OK", 568, 0, 75, 21, 0)
;$Button3 = GUICtrlCreateButton("Zurrück", 0, 0, 75, 21, 0)
$Button4 =GUICtrlCreatePic("C:\Browser\images\toolbar\thema\vorwärts.bmp",25, 0, 28, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreatePic("C:\Browser\images\toolbar\thema\zurrück.bmp",0, 0, 33, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Button5 = GUICtrlCreatePic("C:\Browser\images\toolbar\thema\aktualisiren.bmp",50, 0, 36, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Button6 =GUICtrlCreatePic("C:\Browser\images\toolbar\thema\stop.bmp",86, 0, 32, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Button7 =GUICtrlCreatePic("C:\Browser\images\toolbar\thema\home.bmp",118, 0, 29, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Button8 =GUICtrlCreatePic("C:\Browser\images\toolbar\thema\logo.bmp",144, 0, 93, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$MenuItem6 = GUICtrlCreateMenu("&Datei")
;$MenuItem13 = GUICtrlCreateMenuItem("neues Fenster Strg+N", $MenuItem6)
;$MenuItem12 = GUICtrlCreateMenuItem("neuer Tab Strg+T", $MenuItem6)
;$MenuItem11 = GUICtrlCreateMenuItem("", $MenuItem6)
;$MenuItem10 = GUICtrlCreateMenuItem("Datei öffnen Strg+O", $MenuItem6)
$MenuItem9 = GUICtrlCreateMenuItem("Seite speichern Strg+S", $MenuItem6)
;$MenuItem8 = GUICtrlCreateMenuItem("", $MenuItem6)
;$MenuItem15 = GUICtrlCreateMenuItem("Druckvorschau", $MenuItem6)
;$MenuItem14 = GUICtrlCreateMenuItem("Drucken Strg+P", $MenuItem6)
;$MenuItem7 = GUICtrlCreateMenuItem("", $MenuItem6)
$MenuItem16 = GUICtrlCreateMenuItem("Beenden", $MenuItem6)
$MenuItem5 = GUICtrlCreateMenu("&Bearbeiten")
$MenuItem4 = GUICtrlCreateMenu("&Ansicht")
;$MenuItem26 = GUICtrlCreateMenuItem("Symbolleisten", $MenuItem4)
;$MenuItem25 = GUICtrlCreateMenuItem("Statusleiste", $MenuItem4)
;$MenuItem24 = GUICtrlCreateMenuItem("Sidebar", $MenuItem4)
;$MenuItem23 = GUICtrlCreateMenuItem("", $MenuItem4)
;$MenuItem29 = GUICtrlCreateMenuItem("Stoppen", $MenuItem4)
;$MenuItem28 = GUICtrlCreateMenuItem("Aktualisieren", $MenuItem4)
;$MenuItem27 = GUICtrlCreateMenuItem("", $MenuItem4)
;$MenuItem31 = GUICtrlCreateMenuItem("Zoom", $MenuItem4)
;$MenuItem30 = GUICtrlCreateMenuItem("Codierung", $MenuItem4)
;$MenuItem32 = GUICtrlCreateMenuItem("", $MenuItem4)
$MenuItem34 = GUICtrlCreateMenuItem("Quelltext", $MenuItem4)
;$MenuItem33 = GUICtrlCreateMenuItem("Vollbild", $MenuItem4)
$MenuItem3 = GUICtrlCreateMenu("&Favoriten")
$MenuItem2 = GUICtrlCreateMenu("&Extras")
$MenuItem37 = GUICtrlCreateMenuItem("Sperrung von Internet Seiten", $MenuItem2)
;$MenuItem35 = GUICtrlCreateMenuItem("Radio", $MenuItem2)
;$MenuItem36 = GUICtrlCreateMenuItem("Fernsehn", $MenuItem2)
$MenuItem1 = GUICtrlCreateMenu("&Hilfe")
;$MenuItem18 = GUICtrlCreateMenuItem("Versions Info", $MenuItem1)
;$MenuItem17 = GUICtrlCreateMenuItem("Hilfe Forum", $MenuItem1)
;$MenuItem19 = GUICtrlCreateMenuItem("", $MenuItem1)
;$MenuItem20 = GUICtrlCreateMenuItem("nach Updates suchen", $MenuItem1)
;$MenuItem21 = GUICtrlCreateMenuItem("", $MenuItem1)
;$MenuItem22 = GUICtrlCreateMenuItem("Über Browser", $MenuItem1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
If StringInStr(FileRead("sperrung.ini"), GUICtrlRead($Input2)) Then
MsgBox(48, "Sperrung", "Diese Seite ist gesperrt!")
Else
_IENavigate($ie,GUICtrlRead($Input2),0)
EndIf
Case $MenuItem9
$szSaveFile = FileSaveDialog( "Bitte Dateiname und Speicherort eingeben.", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Webseite Komplett (*.*)|Webseite,nur Html(*.html)|Textdatei (*.txt)", 2)
If Not @error Then
If StringRight($szSaveFile,4) <> ".xml" Then $szSaveFile &= ".xml"
If StringRight($szSaveFile,4) <> ".php" Then $szSaveFile &= ".php"
If StringRight($szSaveFile,4) <> ".html" Then $szSaveFile &= ".html"
If StringRight($szSaveFile,4) <> ".txt" Then $szSaveFile &= ".txt"
$hFile = FileOpen($szSaveFile,2)
FileWrite($hFile, Guictrlread($Group1))
FileClose($hFile)
EndIf
Case $MenuItem16
ExitLoop
Case $MenuItem34
$sHTML = _IEDocReadHTML ($ie)
MsgBox(0, "Quelltext", $sHTML)
Case $MenuItem37
_Sperrung()
Case $Button3
_zurruck()
Case $Button7
_home()
Case $Button4
_vorwarts()
Case $Button5
_()
Case $Button1
Switch GUICtrlRead($Combo1)
Case "Fireball"
$ie.navigate('http://suche.fireball.de/cgi-bin/pursuit?cat=fb_loc&enc=utf-8&query='&GUICtrlRead($Input1))
Case "Google"
$ie.navigate('http://www.google.de/search?hl=de&q='&GUICtrlRead($Input1))
Case "MSN"
$ie.navigate('http://search.live.com/results.aspx?q='&GUICtrlRead($Input1))
Case "Yahoo"
$ie.navigate('http://de.search.yahoo.com/search?p='&GUICtrlRead($Input1))
Case "Bauer"
$ie.navigate('http://www.baur.de/service/baur-de;sid=kraJWfseRLTQW7JebMQzMJcUXykaq6GFppsKlt-EIRVjqTPRgu6dWzbcYQiFMQ==?ls=0&prodDetailUrl=http%3A%2F%2Fwww.baur.de%2Fis-bin%2FINTERSHOP.enfinity%2FWFS%2FBaur-BaurDe-Site%2Fde_DE%2F-%2FEUR%2FBV_DisplayProductInformation-ProductRef%3Bsid%3DkraJWfseRLTQW7JebMQzMJcUXykaq6GFppsKlt-EIRVjqTPRgu6dWzbcYQiFMQ%3D%3D%3Fls%3D0%26ProductRef%3D%253CSKU%253E%2540Baur-BaurDe%26SearchBack%3D-1%26SearchDetail%3Dtrue&source=&Template=search%2Fsearch_fh&resultsPerPage=24&searchandbrowse=&category2=&query='&GUICtrlRead($Input1))
Case "Neckermann"
$ie.navigate('http://www.amazon.de/s/ref=nb_ss_b?__mk_de_DE=%C5M%C5Z%D5%D1&url=search-alias%3Daps&field-keywords='&GUICtrlRead($Input1))
Case "Otto"
$ie.navigate('http://www.otto.de/is-bin/INTERSHOP.enfinity/WFS/Otto-OttoDe-Site/de_DE/-/EUR/OV_ViewFHSearch-Search;sid=wd46KPGs8MGYKLjtwR4CQZ2myvvXv6gY3HpV71Al5Z51QoK2X0JJMm8w5Z51QmgjEL4A5Qam?ls=0&commit=true&fh_search=hose&fh_search_initial='&GUICtrlRead($Input1))
Case "Schwab"
$ie.navigate('http://www.schwab.de/is-bin/INTERSHOP.enfinity/WFS/Schwab-SchwabDe-Site/de_DE/-/EUR/ViewTemplate-Search?ls=0&Template=searchff%2Fsearch_result_frame&query='&GUICtrlRead($Input1))
Case "Quelle"
$ie.navigate('http://www.quelle.de/is-bin/INTERSHOP.enfinity/WFS/Quelle-quelle_de-Site/de_DE/-/EUR/Q_FreeSearch-Start?catelogCategoryList=QuelleRoot&search_free='&GUICtrlRead($Input1))
Case "Amazon"
$ie.navigate('http://www.amazon.de/s/ref=nb_ss_b?__mk_de_DE=%C5M%C5Z%D5%D1&url=search-alias%3Daps&field-keywords='&GUICtrlRead($Input1))
Case "Ebay"
$ie.navigate('http://search.ebay.de/'&GUICtrlRead($Input1))
EndSwitch
EndSwitch
WEnd

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

Func _zurruck()
$ie.GoBack
EndFunc
Func _vorwarts()
$ie.GoForward
EndFunc
Func _home()
$ie.navigate("http://sirocool.si.funpic.de/Clan/00/")
EndFunc
Func _Sperrung()
ShellExecute ( @ScriptDir & "\Sperrung.exe" )
EndFunc

[/autoit]

Ich bedanke mich schon mal im vorraus für die antworten

Sirocool

[autoit]

#include <IE.au3>
$oIE = _IECreate ("http://autoit.de")
$sHTML = _IEDocReadHTML ($oIE)
MsgBox(0, "Quelltext", $sHTML)

[/autoit]

Sirocool

Bild anzeigen link vom Browser 0.1.0

Bild anzeigen link vom Browser 0.0.9

Devil Browser Versionen 0.1.0 im Download

Browser Beta 0.1.5

in Arbeit

Browser Beta 0.1.0
Menü Extras
-Radio im Menü Extras
-Webseiten Sperren
Menü Ansicht
-Quelltext auslesen
Browser funktionen
-Internet
-Internet mit such funktion Über suchmaschienen auswahl
Bug behebungen
-bei vor und zurrück kein abstutz mehr

~~Browser beta 0.0.9~~
-Internet
-Webseiten Sperren im Menü Extras
-Internet mit such funktion Über suchmaschienen auswahl
-Quelltext im Menü Ansicht
Bug behebungen
-bei vor und zurrück kein abstutz mehr

~~Browser beta 0.0.8~~
-Internet
-Webseiten Sperren im Menü Extras
-Internet mit such funktion Über suchmaschienen auswahl

~~Browser Beta 0.0.5~~
-Internet
-Internet mit such funktion Über suchmaschienen auswahl

Browser Funktionen die noch kommen
- Fernsehn übers Internet
- Radio
- Update
- Eigende Startseite wählen
- usw

Sirocool

da ich jetzt weis wie problem 1 schon mal geht werde ich jetzt auch versandhäuser mit dazu nehmmen

Sirocool

Mein Problem ist es in der suche da sind suchmaschienen aufgelistet im $Input1 soll das gesuchte wort dann auch da gefunden werden die anzeige von den Suchseiten kommen unten im Browser aber nicht mit den such ergebnissen

2 Problem mir ist die schrift im browser ein deutig was zu gross will das sie etwas angepasst wird aber mit diesen befehl geht das nicht

GUICtrlSetFont($Group1, 8, 400, 0, "MS Sans Serif")

[autoit]

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.10.0
Author: Sirocool

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

Script Function: Browser
Template AutoIt script.
#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here
#include <GUIConstants.au3>
#include <IE.au3>
#include <INet.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>

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

Local $VerlaufINI = @ScriptDir & "\verlauf.ini"
Local $SperrungINI = @ScriptDir & "\Sperrung.ini"

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

Dim $version = "0.0.5"

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

#Region ### START Koda GUI section ###
$Form1=GUICreate("Browser",@DesktopWidth,@DesktopHeight, 0, 0)
GUISetIcon("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Bilder\favicon.ico")
GUISetStyle(0xffffff)
GUISetCursor (0)
GUISetBkColor(0xFFFFFF)
$ie = _IECreateEmbedded()
$Group1 = GUICtrlCreateObj($ie, 0, 25, @DesktopWidth, 800)
GUICtrlSetFont($Group1, 8, 400, 0, "MS Sans Serif")
$ie.navigate("http://autoit.de/")
$Combo1 = GUICtrlCreateCombo("--== Choose ==--", 624, 0, 129, 21)
GUICtrlSetData(-1,"Google|Fireball|Yahoo|MSN")
$Input1 = GUICtrlCreateInput("Input1",750, 0, 129, 21)
$Button1 = GUICtrlCreateButton("Suchen", 880, 0, 75, 21, 0)
$Icon = GUICtrlCreateInput("Icon", 168, 0, 33, 21)
$Input2=GUICtrlCreateInput("", 200, 0, 297, 21)
$Button2 = GUICtrlCreateButton("OK", 500, 0, 75, 21, 0)
$Button3 = GUICtrlCreateButton("Zurrück", 0, 0, 75, 21, 0)
$Button4 = GUICtrlCreateButton("Vorwärts", 74, 0, 75, 21, 0)
$MenuItem6 = GUICtrlCreateMenu("&Datei")
$MenuItem13 = GUICtrlCreateMenuItem("neues Fenster Strg+N", $MenuItem6)
$MenuItem12 = GUICtrlCreateMenuItem("neuer Tab Strg+T", $MenuItem6)
$MenuItem11 = GUICtrlCreateMenuItem("", $MenuItem6)
$MenuItem10 = GUICtrlCreateMenuItem("Datei öffnen Strg+O", $MenuItem6)
$MenuItem9 = GUICtrlCreateMenuItem("Seite speichern Strg+S", $MenuItem6)
$MenuItem8 = GUICtrlCreateMenuItem("", $MenuItem6)
$MenuItem15 = GUICtrlCreateMenuItem("Druckvorschau", $MenuItem6)
$MenuItem14 = GUICtrlCreateMenuItem("Drucken Strg+P", $MenuItem6)
$MenuItem7 = GUICtrlCreateMenuItem("", $MenuItem6)
$MenuItem16 = GUICtrlCreateMenuItem("Beenden", $MenuItem6)
$MenuItem5 = GUICtrlCreateMenu("&Bearbeiten")
$MenuItem4 = GUICtrlCreateMenu("&Ansicht")
$MenuItem26 = GUICtrlCreateMenuItem("Symbolleisten", $MenuItem4)
$MenuItem25 = GUICtrlCreateMenuItem("Statusleiste", $MenuItem4)
$MenuItem24 = GUICtrlCreateMenuItem("Sidebar", $MenuItem4)
$MenuItem23 = GUICtrlCreateMenuItem("", $MenuItem4)
$MenuItem29 = GUICtrlCreateMenuItem("Stoppen", $MenuItem4)
$MenuItem28 = GUICtrlCreateMenuItem("Aktualisieren", $MenuItem4)
$MenuItem27 = GUICtrlCreateMenuItem("", $MenuItem4)
$MenuItem31 = GUICtrlCreateMenuItem("Zoom", $MenuItem4)
$MenuItem30 = GUICtrlCreateMenuItem("Codierung", $MenuItem4)
$MenuItem32 = GUICtrlCreateMenuItem("", $MenuItem4)
$MenuItem34 = GUICtrlCreateMenuItem("Quelltext", $MenuItem4)
$MenuItem33 = GUICtrlCreateMenuItem("Vollbild", $MenuItem4)
$MenuItem3 = GUICtrlCreateMenu("&Favoriten")
$MenuItem2 = GUICtrlCreateMenu("&Extras")
$MenuItem37 = GUICtrlCreateMenuItem("Sperrung von Internet Seiten", $MenuItem2)
$MenuItem35 = GUICtrlCreateMenuItem("Radio", $MenuItem2)
$MenuItem36 = GUICtrlCreateMenuItem("Fernsehn", $MenuItem2)
$MenuItem1 = GUICtrlCreateMenu("&Hilfe")
$MenuItem18 = GUICtrlCreateMenuItem("Versions Info", $MenuItem1)
$MenuItem17 = GUICtrlCreateMenuItem("Hilfe Forum", $MenuItem1)
$MenuItem19 = GUICtrlCreateMenuItem("", $MenuItem1)
$MenuItem20 = GUICtrlCreateMenuItem("nach Updates suchen", $MenuItem1)
$MenuItem21 = GUICtrlCreateMenuItem("", $MenuItem1)
$MenuItem22 = GUICtrlCreateMenuItem("Über Browser", $MenuItem1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
If StringInStr(FileRead("sperrung.ini"), GUICtrlRead($Input2)) Then
MsgBox(48, "Sperrung", "Diese Seite ist gesperrt!")
Else
_IENavigate($ie,GUICtrlRead($Input2),0)
EndIf
Case $Button3
$ie.GoBack
Case $Button4
$ie.GoForward
Case $Combo1
If GUICtrlRead($Combo1,$Input1) = "Google" then $ie.navigate("http://www.google.de/")
If GUICtrlRead($Combo1,$Input1) = "Fireball" then $ie.navigate("http://www.Fireball.de/")
If GUICtrlRead($Combo1,$Input1) = "Yahoo" then $ie.navigate("http://www.Yahoo.de/")
If GUICtrlRead($Combo1,$Input1) = "MSN"then $ie.navigate("http://www.Msn.de/")
Case $Button1
$ie.navigate($Combo1,$Input1,$Group1)

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

EndSwitch
WEnd

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

Später wenn ich diese problem mit eurer Hilfe fertig habe kann mann dann schon mal in der Version 1 vom browser dann auch Internetseiten speeren und wieder auf heben aber diese obtion ist auf meinen rechner noch

will erstmal nur die beiden Probleme gelöst bekommen

Und wenn der User mit spielt den ich angeschrieben habe ist in Version 1 auch schon Radio mit drin

Sirocool

Und zwar kann ich nur 1 seite eingeben richtig wenn ich näckste machen will kommt anstatt der name eine 0 zieh aber Bilder unten

ihr sind bilder

Spoiler anzeigen

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GUIConstants.au3>

;Global Const $LVFI_PARAM = 0x0001
;Global Const $LVIF_TEXT = 0x0001
;Global Const $LVM_FIRST = 0x1000
Global Const $LVM_GETITEM = $LVM_FIRST + 5
;Global Const $LVM_FINDITEM = $LVM_FIRST + 13
;Global Const $LVM_SETSELECTEDCOLUMN= $LVM_FIRST + 140

Dim $nCurCol = -1
Dim $nSortDir = 1
Dim $bSet = 0
Dim $nCol = -1
Dim $nr, $aSperrungdaten

#Region ### START Koda GUI section ####
$Form1 = GUICreate('Sperrung von Internet Seiten',300,300, 0, 0)
GUISetBkColor(0xFFFFFF)
$Input1 = GUICtrlCreateInput("", 0, 0, 300, 21)
$Button = GUICtrlCreateButton("Sperren", 100, 25, 75, 21, 0)
$Listview1 = GUICtrlCreateListView("Nr|Webseite|", 0, 50, 300, 250)
GUICtrlSetFont($Listview1, 8, 400, 0, "MS Sans Serif")
; ### hier Kontextmenü für ListView einfügen:
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_edit = GUICtrlCreateMenuItem('Webseite Bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Webseite Löschen', $mnu)
; ### Ende Kontextmenü
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Local $SperrungINI = @ScriptDir & "\Sperrung.ini"

; nur zum Testen:
If Not FileExists($SperrungINI) Then
IniWrite($SperrungINI, "Sperrung", 10000, "www.Torrent.to")
IniWrite($SperrungINI, "edit", 10000, "")
IniWrite($SperrungINI, "Sperrung", 10001, "www.speedtorrent.to")
IniWrite($SperrungINI, "edit", 10001, "")
IniWrite($SperrungINI, "Sperrung", 10002, "www.Bitreactor.to")
IniWrite($SperrungINI, "edit", 10002, "")
IniWrite($SperrungINI, "Numbers", "last", 10002)
EndIf
; Ende Test-INI

Global $aSperrung = IniReadSection($SperrungINI, "Sperrung")
Local $lastNum = IniRead($SperrungINI, "Numbers", "last", 9999)

_FillListView()
GUISetState(@SW_SHOW, $Form1)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1] ; Window-Handle
Case $Form1
Switch $nMsg[0] ; Event
Case $GUI_EVENT_CLOSE
Exit
Case $Button
$lastNum += 1
$Input1 = GUICtrlRead($Input1)
IniWrite($SperrungINI, "Numbers", "last", $Listview1)
IniWrite($SperrungINI, "Sperrung", $lastNum, $Input1)
IniWrite($SperrungINI, "edit",$lastNum,"")
GUICtrlSetData($Input1, "")
; Array mit Patienten-Daten neu einlesen
$aSperrung = IniReadSection($SperrungINI, "Sperrung")
_FillListView()
Case $mnu_del
; Eintrag aus INI löschen:
$index = _GUICtrlListView_GetSelectedIndices($Listview1)
$del_Key = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 0)
IniDelete($SperrungINI, "Sperrung", $del_key)
; Array mit Patienten-Daten neu einlesen
$aSperrung = IniReadSection($SperrungINI, "Sperrung")
; entfernt Eintrag aus Liste:
_GUICtrlListView_DeleteItemsSelected($Listview1)
Case $Listview1
$bSet = 0
$nCurCol = $nCol
GUICtrlSendMsg($Listview1, $LVM_SETSELECTEDCOLUMN, GUICtrlGetState($Listview1), 0)
DllCall("user32.dll", "int", "InvalidateRect", "hwnd", GUICtrlGetHandle($Listview1), "int", 0, "int", 1)
EndSwitch
EndSwitch
WEnd

Func _FillListView()
_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 9999 Then Return
For $i = 1 To UBound($aSperrung) -1
GUICtrlCreateListViewItem($aSperrung[$i][0] & '|' & $aSperrung[$i][1], $Listview1)
Next
EndFunc

Func _LeftDblClick($Info) ; Inhalt der angeklickten Zeile (alle Spalten) wird in GUI gezeigt
GUICtrlSetData($Input1 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 0))
$nr = GUICtrlRead($Input1)
$edit= IniRead($INI,"edit",$nr,"")
GUICtrlSetData($Edit1,$edit)
GUISetState(@SW_SHOW, $Form1)
EndFunc

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
_LeftDblClick($aInfo)
Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
Return $GUI_RUNDEFMSG ; allow the default processing
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

; Unsere Sortier-Callback-Funktionen
Func LVSort($hWnd, $nItem1, $nItem2, $nColumn)
Local $nSort

; Schalte die Sortierrichtung um
If $nColumn = $nCurCol Then
If Not $bSet Then
$nSortDir = $nSortDir * -1
$bSet = 1
EndIf
Else
$nSortDir = 1
EndIf
$nCol = $nColumn

$val1 = GetSubItemText($Listview1, $nItem1, $nColumn)
$val2 = GetSubItemText($Listview1, $nItem2, $nColumn)

; Wenn es die dritte Spalte ist (startet bei 0) dann vergleiche die Daten
If $nColumn = 2 Then
$val1 = StringRight($val1, 4) & StringMid($val1, 4, 2) & StringLeft($val1, 2)
$val2 = StringRight($val2, 4) & StringMid($val2, 4, 2) & StringLeft($val2, 2)
EndIf

$nResult = 0 ; Keine Änderung in item1 und item2 Positionen

If $val1 < $val2 Then
$nResult = -1 ; Setze item2 vor item1
ElseIf $val1 > $val2 Then
$nResult = 1 ; Setze item2 hinter item1
EndIf

$nResult = $nResult * $nSortDir

Return $nResult
EndFunc

; Text eines Baumansicht-Elements in einer bestimmten Spalte abrufen
Func GetSubItemText($nCtrlID, $nItemID, $nColumn)
Local $stLvfi = DllStructCreate("uint;ptr;int;int[2];int")
DllStructSetData($stLvfi, 1, $LVFI_PARAM)
DllStructSetData($stLvfi, 3, $nItemID)

Local $stBuffer = DllStructCreate("char[260]")

$nIndex = GUICtrlSendMsg($nCtrlID, $LVM_FINDITEM, -1, DllStructGetPtr($stLvfi));

Local $stLvi = DllStructCreate("uint;int;int;uint;uint;ptr;int;int;int;int")

DllStructSetData($stLvi, 1, $LVIF_TEXT)
DllStructSetData($stLvi, 2, $nIndex)
DllStructSetData($stLvi, 3, $nColumn)
DllStructSetData($stLvi, 6, DllStructGetPtr($stBuffer))
DllStructSetData($stLvi, 7, 260)

GUICtrlSendMsg($nCtrlID, $LVM_GETITEM, 0, DllStructGetPtr($stLvi));

$sItemText = DllStructGetData($stBuffer, 1)

$stLvi = 0
$stLvfi = 0
$stBuffer = 0

Return $sItemText
EndFunc

Sirocool

Case $Button2
If StringInStr(FileRead("sperrung.ini"), GUICtrlRead($Input2)) Then
MsgBox(48, "Sperrung", "Diese Seite ist gesperrt!")
Else
_IENavigate($ie,GUICtrlRead($Input2),0)
EndIf

danke dir für deine schnell antwort^^

Sirocool

der soll die ini schecken ob die web seite mit drinne steht die gesperrt werden soll

Variante 1 geht nicht so wie dann ?

If GUICtrlRead($Input2)= "\sperrung.ini" Then
MsgBox (48,"Sperrung","Diese Seite ist gesperrt!")

Variante 2 geht aber geht dann nur die seite

If GUICtrlRead($Input2)= "www.ebay.de" Then
MsgBox (48,"Sperrung","Diese Seite ist gesperrt!")

aber ich will ja das mehre seiten gesperrt werden sollen also am besten über die ini

Danke für eure hilfe im vorraus

Beiträge von Sirocool

Pic nicht doppelt

The destroyed City

Hilfe zu Pic gebraucht

Hilfe zu Pic gebraucht

Hilfe zu Pic gebraucht

Hilfe zu Pic gebraucht

Hilfe zu Pic gebraucht

Web-Seite

Web-Seite

Web-Seite

brauche mal hilfe so das das Bild im hintergrund ist

brauche mal hilfe so das das Bild im hintergrund ist

Browser

Quelltext auslesen

Devil Browser

Browser

Browser

brauche Hilfe bei sperrung von webseitenseiten

bruache hilfe

bruache hilfe