Jump to content

Gui not wörks on the last beta=?


 Share

Recommended Posts

Hello all i use this code from this forum,but on the new autoit beta this not wörks wat is my prob =?thx for help me :idiot:

He gif me a error on GUIRead ($MyList) =?

; ----------------------------------------------------------------------------

;

; AutoIt Version: 3.0

; Language: English

; Platform: Win9x / NT

; Author: DirtyBanditos 2004-2005

;

; Script Function:

; Template AutoIt script.

;

; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------

; Set up our defaults

; ----------------------------------------------------------------------------

;AutoItSetOption("MustDeclareVars", 1)

;AutoItSetOption("MouseCoordMode", 0)

;AutoItSetOption("PixelCoordMode", 0)

;AutoItSetOption("RunErrorsFatal", 1)

;AutoItSetOption("TrayIconDebug", 1)

;AutoItSetOption("WinTitleMatchMode", 4)

; ----------------------------------------------------------------------------

; Script Start

; ----------------------------------------------------------------------------

#include <GUIConstants.au3>

Func _MouseWrap()

While 1

$pos = MouseGetPos()

If $pos[0] < 2 Then MouseMove(@DesktopWidth - 2, $pos[1], 1)

If $pos[0] > @DesktopWidth - 2 Then MouseMove(2, $pos[1], 1)

If $pos[1] < 2 Then MouseMove($pos[0], @DesktopHeight - 2, 1)

If $pos[1] > @DesktopHeight - 2 Then MouseMove($pos[0], 2, 1)

Wend

EndFunc ;==>_MouseWrap

GUICreate("DirtyBanditos Automated Link Starter Version 1.0 Coded 2004-2005 !!!Nutze Die Pfeiltasten Deines Keyboardes Hoch und Runter dan Return Fertig!!!", 900, 470, -1, -1, "Arial Black")

GUISetBkColor(0x000000)

GUICtrlCreateLabel("DirtyBanditos Automated Link Starter Version 1.0 Coded 2004-2005 !!! Nutze Die Pfeiltasten Deines Keyboardes Hoch und Runter dan Return Fertig!!!Drücke Esc Für Quit", 75, 10, 600, 300)

GUICtrlSetColor(-1, 0xffff0090)

GUICtrlSetFont(-1, 14, 40)

GUICtrlCreateLabel("DirtyBanditos 2004-2005", 680, 40, 300, 300)

GUICtrlSetColor(-1, 0xff33FF33)

GUICtrlSetFont(-1, 10, 10)

GUISetFont(10, 400, 0, "Arial Black")

;$MyList = GUICtrlCreateList ("Arial Black", 25, 50, 750, 240)

$MyList = GUICtrlCreateList("", 25, 90, 850, 320, $LBS_USETABSTOPS)

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!1" & @TAB & "http://www.bigdragon.6x.to/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!2" & @TAB & "http://www.hiddensoft.com/forum")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!3" & @TAB & "http://www.SacredShop.de.vu")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!4" & @TAB & "http://www.gamecopyworld.com")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!5" & @TAB & "http://www.battleforums.com/showthread.php?s=&threadid=52718")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!6" & @TAB & "http://world.altavista.com/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!7" & @TAB & "http://www.blizzhackers.com/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!8" & @TAB & "http://www.iconarchive.com/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!9" & @TAB & "http://suprnova.org")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!10" & @TAB & "http://sacred-game.com/index.php")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!11" & @TAB & "http://sourceforge.net/index.php")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!12" & @TAB & "http://www.sofort-mail.de/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!13" & @TAB & "http://www.wardriving-forum.de/phpBB2/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!14" & @TAB & "http://www.hiddensoft.com")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!15" & @TAB & "http://www.voidofmind.com/eedok/gamepage.php?id=tuts")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!16" & @TAB & "http://www.gametutorials.com/CodeDump/CodeDump_Pg1.htm")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!17" & @TAB & "http://www.coding-board.de/board/showthread.php?t=6")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!18" & @TAB & "http://tejo.yourdotstore.com/~diablo.com/links.htm")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!19" & @TAB & "http://go.to/Hairy_Bits")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!20" & @TAB & "http://win32asm.cjb.net")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!21" & @TAB & "http://www.icq.com")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!22" & @TAB & "http://sacred.ingame.de/itemdb/index.php?mod=suchform")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!23" & @TAB & "http://ollyscript.apsvans.com")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!24" & @TAB & "http://www.online-tutorials.net/hacking--cracking/speicherzugriff-tutorial-teil-1/tutorials-t-27-63.html")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!25" & @TAB & "http://www.brzi.cjb.net")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!26" & @TAB & "http://www.freenet.de/freenet")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!27" & @TAB & "http://cip.myz.info/index.php?page=links")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!28" & @TAB & "http://www.codingcommunity.de/megatoplist/index.html")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!29" & @TAB & "http://tutorials.accessroot.com")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!30" & @TAB & "http://membres.lycos.fr/tsearch")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!31" & @TAB & "http://www.ragnarokonline.de/news285.htm")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!32" & @TAB & "http://www.dday-info.de")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!33" & @TAB & "http://www.nic.de.vu")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!34" & @TAB & "http://www.protools.cjb.net")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!35" & @TAB & "http://y0da.cjb.net")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!36" & @TAB & "http://www.cheaters-guild.com/cheat-index.asp?category=HexCheats")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!37" & @TAB & "http://www.bloodshed.net/dev/devcpp.html")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!38" & @TAB & "http://zor.org/krobar")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!39" & @TAB & "http://upx.sourceforge.net")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!40" & @TAB & "http://www.fuckinworld.org/active85k/frames.htm")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!41" & @TAB & "http://www.exetools.com/forum/showthread.php?t=4691")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!42" & @TAB & "http://www.c-plusplus.de/compiler.htm")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!43" & @TAB & "https://freemailng2102.web.de/msg/notallowed.htm?reason=security")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!44" & @TAB & "http://www.buha.info/files/user/html/main_Tools.html")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!45" & @TAB & "http://bcx.basicguru.com")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!46" & @TAB & "http://www.wireless-nrw.de/?link=downloads")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!47" & @TAB & "http://perso.wanadoo.fr/manus-magnus")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!48" & @TAB & "http://www.dhp64.fatal.ru/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!49" & @TAB & "http://www.bitrock.com/download_download.html")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!50" & @TAB & "http://freshmeat.net")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!51" & @TAB & "http://www.tvtorrents.tv")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!52" & @TAB & "http://www.bi-torrent.com/index.htm")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!53" & @TAB & "http://members.lycos.nl/bt4u/index.php")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!54" & @TAB & "http://10mbit.com")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!55" & @TAB & "http://www.ddlboard.com/index.php")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!56" & @TAB & "http://www.escom.biz/bt/index.php")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!57" & @TAB & "http://www.filelist.org/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!58" & @TAB & "http://oasis.bscn.com/torrents/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!59" & @TAB & "http://www.IrcSpy.com/search.asp")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!60" & @TAB & "http://isohunt.com/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!61" & @TAB & "http://www.lokitorrent.com/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!62" & @TAB & "http://searchto01.epsylon.org/index.php")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!63" & @TAB & "http://www.torrentsearch.com/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!64" & @TAB & "http://torrentreactor.net/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!65" & @TAB & "http://www.torrents.co.uk/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!66" & @TAB & "http://www.torrentspy.com/")

GUICtrlSetData($MyList, "DirtysBanditos Top Seiten!67" & @TAB & "http://www.btefnet.net/index.php")

$OpenURL = GUICtrlCreateButton("Open", 25, 395, 100, 30, $BS_DEFPUSHBUTTON)

GUICtrlSetState($OpenURL, $GUI_DISABLE)

$Close = GUICtrlCreateButton("Close", 675, 395, 100, 30)

GUISetState()

$msg = 0

While $msg <> $GUI_EVENT_CLOSE

$msg = GUIGetMsg()

If GUICtrlGetState($OpenURL) <> $GUI_ENABLE And GUIRead ($MyList) <> "" Then

GUICtrlSetState($OpenURL, $GUI_ENABLE)

GUICtrlSetFont($OpenURL, 9, 800)

EndIf

Select

Case $msg = $Close

Exit

Case $msg = $MyList

GUICtrlSetState($OpenURL, $GUI_ENABLE)

GUICtrlSetFont($OpenURL, 9, 800)

Case $msg = $OpenURL

If GUIRead ($MyList) <> "" Then

$SelectedURL = StringMid(GUIRead ($MyList), StringInStr(GUIRead ($MyList), "HTTP") - 1, 250)

Run(@ComSpec & " /c Start " & $SelectedURL, "", @SW_HIDE)

Else

MsgBox(0, "No URL selected", "No URL selected!")

EndIf

EndSelect

Wend

Edited by DirtyBanditos
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...