Jump to content

InetGet / Filewrite Problem. Works on my comp, not on my friends


WhOOt
 Share

Recommended Posts

Hey guys, thanks for time, looking at this topic.

I have a problem; I made a script, for viewing some scores on a webpage.

I can view the scores, to me it works perfectly. The problem is that when I send the script to others from my guild, they get an error.

Some of them get this error:

Filewriteline("spamre.txt", $spamre[2])
filewriteline("spamre.txt", ERROR)
Error: An array has incorrect number of subscribt dimension or range exceeded.

What could be wrong? I just don't understand it, when it works flawlessly on my machine.

Here's the full code

#include <GUIConstants.au3>

guicreate("Invulnerability DKP list", 350, 650, 10)
$button9 = guictrlcreatelabel("Please wait a few seconds!", 100, 300)
$button1= guictrlcreatebutton("Warrior DKP", 5, 540, 75, 35)
$button2= guictrlcreatebutton("Rogue DKP", 85, 540, 75, 35)
$button3= guictrlcreatebutton("Warlock DKP", 165, 540, 75, 35)
$button4= guictrlcreatebutton("Mage DKP", 245, 540, 75, 35)

$button5= guictrlcreatebutton("Priest DKP", 5, 580, 75, 35)
$button6= guictrlcreatebutton("Hunter DKP", 85, 580, 75, 35)
$button7= guictrlcreatebutton("Druid DKP", 165, 580, 75, 35)
$button8= guictrlcreatebutton("Shaman DKP", 245, 580, 75, 35)
guisetstate(@sw_show)


delete()

$i = 0

func delete()
    if @error then exit
filedelete("Warriors.txt")
filedelete("Rogues.txt")
filedelete("Mage.txt")
filedelete("Priests.txt")
filedelete("Shamans.txt")
filedelete("Druids.txt")
filedelete("Warlocks.txt")
filedelete("Hunters.txt")
filedelete("spamre.txt")
endfunc


; Getting the file to read
inetget("http://www.miumu.com/phpbb/viewtopic.php?t=14&mforum=invulnerguild", "Invulnerability  View topic - DKP LIST.html")

;Opening the file, and removing spam, such as HTML and such.
$searcher = fileread("Invulnerability  View topic - DKP LIST.html", 999999)
$nonre = stringsplit($searcher, "* - Non", 1)
filewriteline("nonre.txt", $nonre[1])
$spamse = fileread("nonre.txt", 999999)
$spamre = stringsplit($spamse, 'class="postbody">', 1)
filewriteline("spamre.txt", $spamre[2])
filedelete("nonre.txt")
$spammre = stringreplace($spamre[2], "<br />", "")

;Making different files for each character class
$splitclass = stringsplit($spammre,"Rogues", 1 )
filewriteline("warriors.txt", $splitclass[1])

$splitclass = stringsplit($splitclass[2], "Warlocks", 1)
filewriteline("Rogues.txt", $splitclass[1])

$splitclass = stringsplit($splitclass[2], "Mage", 1)
filewriteline("Warlocks.txt", $splitclass[1])

$splitclass = stringsplit($splitclass[2], "Priests", 1)
filewriteline("Mage.txt", $splitclass[1])

$splitclass = stringsplit($splitclass[2], "Hunters", 1)
filewriteline("Priests.txt", $splitclass[1])

$splitclass = stringsplit($splitclass[2], "Druids", 1)
filewriteline("Hunters.txt", $splitclass[1])

$splitclass = stringsplit($splitclass[2], "Shamans", 1)
filewriteline("Druids.txt", $splitclass[1])

filewriteline("Shamans.txt", $splitclass[2])
guictrlcreatelabel("                                                                                     ", 100, 300)

;Outputting the classes in a label
func i1()
    $read = fileread("Warriors.txt", 999)
    guictrlcreatelabel($read, 5, 5, 400, 500)
endfunc

func i2()
    $read = fileread("Rogues.txt", 999)
        guictrlcreatelabel($read, 5, 5, 400, 500)
endfunc


func i3()
    $read = fileread("Warlocks.txt", 999)
        guictrlcreatelabel($read, 5, 5, 400, 500)
endfunc


func i4()
    $read = fileread("MAge.txt", 999)
        guictrlcreatelabel($read, 5, 5, 400, 500)
endfunc


func i5()
    $read = fileread("Priests.txt", 999)
        guictrlcreatelabel($read, 5, 5, 400, 500)
endfunc


func i6()
    $read = fileread("Hunters.txt", 999)
        guictrlcreatelabel($read, 5, 5, 400, 500)
endfunc


func i7()
    $read = fileread("Druids.txt", 999)
        guictrlcreatelabel($read, 5, 5, 400, 500)
endfunc


func i8()
    $read = fileread("Shamans.txt", 999)
        guictrlcreatelabel($read, 5, 5, 400, 500)
    endfunc



;checks if buttons are pressed
    while 1
        $msg = guigetmsg()
        if $msg = $button1 then i1()
        if $msg = $button2 then i2()
        if $msg = $button3 then i3()
        if $msg = $button4 then i4()
        if $msg = $button5 then i5()
        if $msg = $button6 then i6()
        if $msg = $button7 then i7()
        if $msg = $button8 then i8()
        if $msg = $GUI_EVENT_CLOSE then myexit()
        sleep(10)
    wend

;Deleting files on exit
Func myexit()
        if @error then exit
filedelete("Warriors.txt")
filedelete("Rogues.txt")
filedelete("Mage.txt")
filedelete("Priests.txt")
filedelete("Shamans.txt")
filedelete("Druids.txt")
filedelete("Warlocks.txt")
filedelete("Hunters.txt")
filedelete("spamre.txt")
filedelete("Invulnerability  View topic - DKP LIST.html")
exit
    endfunc
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...