ludocus

I managed to fix it by adding custom positions when operating system is windows 10. Btw, when I try to compile the script, I get a message saying "Incorrect Wrapper Directive '#Autoit3Wrapper_REs_HiDpi=Y' " Am I compiling it wrong or something?

@nobbitry You are absolutely right and I now this is confusing. I had to enter different heights because they were displayed at different heights if I entered the same height for both (still following me? :p). @KarlosTHG Well if that's the problem, then that solution won't work for me as this program will be installed on a lot of different systems. It should just work for everyone without having to change any settings in windows. So I might just add an If statement that will change the GUI when it is displayed on windows 10 versus windows 7. Thank you both!

Yes, it's exactly the same script. That little bit of code is just to make it easier for me to slide all controls down with a certain amount of pixels. Does it display well at your side?

Hi everyone, I have a problem displaying this GUI on different systems. On my laptop (windows 7) it looks like this: : However, when displayed on my friends laptop (windows 10) the controls are not properly aligned and don't even fit on the screen. Here's a screenshot: I have no idea how to fix this. Anybody have some advice? My script: ExcelTools_V1.au3

Great, thanks guys!

@j0kky I understand. Thanks! If you don't mind, I have one last question. I am trying to create a function that replaces all special characters from a string into backslashed special characters, so they are excluded in the RegExp progress. In other words, replace all of these: \ . ^ $ | [ ( { * + ? # ) with \[ORIGINAL CHAR] where [ORIGINAL CHAR] is the special character. So: hello\something.something would become hello\\something\.something I wrote this:, but it isn't working (I'm probably doing it totally wrong ) Func _Convert($string) ;Convert all special characters into usable characters for StringRegExp usage     $string = StringRegExpReplace($string, "\\\.\^\$\|\[\(\{\*\+\?\#\)", "\\$")     return $string EndFunc

@j0kky, @jchd, @mikell: Thank you all very much! One question though. $s = "test-1.5-A, test-1,5-A, test-11/5-A" $a = StringRegExp($s, "test-(?:1\.5|1,5|11/5)-A", 3) For $n In $a ConsoleWrite($n & @CRLF) Next In your code, why do you use this part: ....?:... To me it seems this is not necessary for it to work right?

Hi everyone, I just started using RegExpressions, so I'm still very new to this. I'm trying to write an expression that finds a match when a string is one of the following three versions, and returns an array containing the full match (or matches). test-1.5-A test-1,5-A test-11/5-A How would I do this? Thanks in advance.

Dear all, I'm creating this program where the goal is to automate some mouse -click and dragging on an external application. Now the problem is, this external application is blocking every automate mouse moves, clicks or anything related to using the mouse. So I figured autoit uses postmessage and user32.dll to move the mouse and that this application blocks these attempts. Now I'm wondering if there's a different way to move the mouse so it'll go undetected by this external app. Any other suggestions are welcome to. Thnx in advance

Thnx MHz, I'll look in to that. Any other, simpler way than using 7zip?

Weird, it doesn't work for me. Try my script.

@Mikell: Ah so that's the problem. Well too bad. Yes I know, that's the alternitave I came up with. Still I'd rather download the direct torrent file. Could there be some other way then InetGet that can download a torrent file? @Storme: Nope, I was just experimenting, and apparently didn't change the 4 back to nothing. But none of the opts work for those torrent files.

Hi Guys, I'm trying to create a program that'll download .torrent files for me automatically and place them in a folder so uTorrent starts downloading them. The whole script works flawless (for now) except for the most important part: Downloading the .torrent file. It works, it downloads the .torrent file perfectly, but for some reason uTorrent gives me the error that 'the torrent file was not correctly encoded'. For some reason downloading the torrent with InetGet instead of my browser, fucks it up. The size of the torrent is exactly the same as that of the one I download with my browser, still the files are different. This is my script: #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.8.1 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <INet.au3> #include <Array.au3> $downloadfolder = 'C:\Users\Ludo\Downloads\torrents' $searchquiry = StringReplace('the hobbit desolation of smaug', ' ', '+') $preferedsite = 'kickmirror' $link = 'http://torrentz.eu/search?f='&$searchquiry $source = _INetGetSource($link, True) $S1 = StringSplit($source, '<a rel="nofollow" href="/searchA?f='&$searchquiry&'"> date </a> | <a rel="nofollow" href="/searchS?f='&$searchquiry&'"> size </a> | <b> peers </b></h3>', 1) $S2 = StringSplit($S1[2], '<dl><dt style="text-align: right">', 1) $S3 = StringSplit($S2[1], @LF, 1) global $torrents[$S3[0]+1][7] $torrents[0][0] = $S3[0]-1 ; Form of $torrents[a][b] for b: ; $torrents[a][0] = total string ; $torrents[a][1] = torrent url ; $torrents[a][2] = torrent title ; $torrents[a][3] = torrent size ; $torrents[a][4] = torrent seeders ; $torrents[a][5] = torrent peers ; $torrents[a][6] = torrent type For $i = 1 to $torrents[0][0] ;MsgBox(0, '', _StringBetw($S3[$i], '<a href="', '">')) $torrents[$i][0] = $S3[$i] $torrents[$i][1] = _StringBetw($S3[$i], '<a href="', '">') $torrents[$i][2] = _StringStrip(_StringBetw($S3[$i], '<a href="'&$torrents[$i][1]&'">', '</a>')) $temp1 = StringSplit($S3[$i], '</a> &#187; ', 1) $temp2 = StringSplit($temp1[2], '</dt><dd>', 1) $temp3 = StringSplit($S3[$i], '</span></span><span class="s">', 1) $temp4 = StringSplit($temp3[2], '</span> <span class="u">', 1) $temp5 = StringSplit($temp4[2], '</span><span class="d">', 1) $temp6 = StringSplit($temp5[2], '</span>', 1) $torrents[$i][3] = $temp4[1] $torrents[$i][4] = $temp5[1] $torrents[$i][5] = $temp6[1] $torrents[$i][6] = $temp2[1] Next ;_ArrayDisplay($torrents) ;ClipPut($torrents[1][1]&@CRLF&@CRLF&$torrents[$torrents[0][0]][2]) $source2 = _INetGetSource('http://torrentz.eu/'&$torrents[1][1]) $A1 = StringSplit($source2, ' torrent download locations</h2><dl><dt>', 1) $A2 = StringSplit($A1[1], '</span> ', 1) $A3 = StringSplit($A1[2], '<a href="', 1) $locations = $A2[$A2[0]] global $tors[$locations+1] $n = 0 For $i = 2 to $locations $A4 = StringSplit($A3[$i], '" ', 1) $tors[$i] = $A4[1] If StringInstr($tors[$i], $preferedsite) Then $n = $i EndIf Next If $n = 0 Then Msgbox(32, 'Too bad', 'No kickmirror torrent links found..') Exit EndIf ;_ArrayDisplay($tors) $source3 = _INetGetSource($tors[$n], True) ;$B1 = _StringBetw($source3, '<a title="Magnet link" href="', '"') ;ShellExecute($B1) $B1 = _StringBetw($source3, '<a rel="nofollow" title="Download verified torrent file" href="', '"') $B2 = StringSplit($B1, '.torrent?title=', 1) $finallink = $B2[1]&'.torrent' InetGet($finallink,$downloadfolder&'\'&$B2[2]&'.torrent', 4) MsgBox(32, 'Succes', 'Torrent started downloading!') Func _StringBetw($string, $start, $end) $pa = StringSplit($string, $start, 1) If $pa[0] < 2 Then Return 0 $pb = StringSplit($pa[2], $end, 1) Return $pb[1] EndFunc Func _StringStrip($string) $s = StringReplace($string, '<b>', '') $s1 = StringReplace($s, '</b>', '') Return $s1 EndFunc Please try it out, then try to run the torrent with utorrent or some other torrent downloader. If somebody knows what the problem is, I'd be very happy if you'd help me here! Thnx in advance, Ludo

Ok still now working. I changed to port 8081 (just to be sure the port wasn't used by anything else) I also opened 8081 on my windows firewall. I checked with the port website, and it says the port is open (if the server is running): As you see, the port is open. Now when I run the client, I get the following error: !--> TCPConnect error number ( 10060 ), look in the help file (on MSDN link) on func TCPConnect to get more info about this error. BTW: I'm running the client and server on the same pc (thus same ip adress). Could this be causing my trouble? I've been trying to make this work for ages now, please help me out once more! Thnx