SOLVED:Copy source code from site.

[jacq 0]

Welcome.

This is code

#include <String.au3>
#include <Inet.au3>

$String = (_INetGetSource('http://www.teleman.pl/program-tv/stacje/Discovery-Science'))

$String_Start = 'class="prog_title">'
$String_End   = '</a><div class="genre">'

If StringInStr($String, 'title="trwa"') Then
    $Array = _StringBetween($String, $String_Start, $String_End)
    $ConsoleWrite = ($Array[0] & @LF)
MsgBox(64, "Info", $ConsoleWrite)

EndIf

but the Polish characters do not work you may know how to change it.Help!!!

I used this code but not working

#include <Clipboard.au3>

_ClipBoard_SetData($ConsoleWrite, $CF_UNICODETEXT)

Edited March 24, 2012 by jacq

[somdcomputerguy 103]

Using the _INetGetSource() function is one way of doing this.

#include <INet.au3>
$Source = _INetGetSource('www.website.com')
ConsoleWrite($Source & @LF)

[jacq 0]

Also, I found this solution but thanks for your willingness to help.

Thanks somdcomputerguy (again)

Edited March 19, 2012 by jacq

[somdcomputerguy 103]

You should remove the first set of parantheses here, so,

$String = (_INetGetSource('http://www.teleman.pl/program-tv/stacje/Discovery-Science'))

should be

$String = _INetGetSource('http://www.teleman.pl/program-tv/stacje/Discovery-Science')

[jacq 0]

Ok I have $String = _INetGetSource('http://www.teleman.pl/program-tv/stacje/Discovery-Science') but but the Polish characters do not work.

[somdcomputerguy 103]

Maybe they're tired, or just lazy.. Ok, kidding aside. You'll have to be a bit more descriptive than 'do not work' if anybody will be able to help. Someone's crystal ball might be polished just enough to guess pretty accurately what you mean though.

[jacq 0]

I wrote Polish characters (special liters) like Chinese letters but other.This liters ł,ó,ż,ź. Edited March 19, 2012 by jacq