-
Posts
211 -
Joined
-
Last visited
About logmein
- Birthday 10/20/1994
Profile Information
-
Location
Việt Nam!
-
Interests
creepypasta
Recent Profile Visitors
953 profile views
logmein's Achievements

Polymath (5/7)
3
Reputation
-
distracted reacted to a post in a topic: Total USB Security 3.0 BETA
-
@Malkey and @kylomas Wow, thanks for your scripts! It's nice and simple! :thumbsup: @spudw2k Uhm, I understood. Thanks!
-
Mod, please close this thread.
-
No one cares?
-
Thank you! It's nice!
-
Hi there! I have been learning linear algebra in my university for months. The subject was rather hard, I did't understand it much so I sent a email to my teacher to ask him. But I realized that typing a matrix by text was extremely hard. I don't want to make a LaTex function, save to a file, attach it to the mail, bla bla bla!!! It's complicated! So I spent 2 hours yesterday to make this tool. Just type the number of lines and columns and matrix values, it will generate a quite nice matrix in ASCII characters Enjoy! Notes: It will rearrage your numbers to straight columns. 1x1 will cause error. ConsoleWrite (@CRLF & '------------------------------------MATRIX TEST-----------------------------------------' &@CRLF) Dim $c = 6;column Dim $l = 4;line Dim $n = '1,6,2,4,b,a,7,6,6,0,44,4,6,3,6,2,6,8,9,6,6,1,2,logmein' $split = StringSplit ($n,',') If $c * $l <> $split[0] Then ConsoleWrite ('! Matrix values number do not match the columns and lines !' & @CRLF) Exit EndIf Dim $char[$l][$c], $len[$l][$c], $maxlen[$c][3] For $i = 0 To $l-1 For $u = 0 To $c -1 $v = $i*($c) + $u +1 $char[$i][$u] = $split[$v] $len[$i][$u] = StringLen ($split[$v]) If $len[$i][$u] > $maxlen[$u][0] Then $maxlen[$u][0] = $len[$i][$u] $maxlen[$u][1] = $i $maxlen[$u][2] = $u EndIf Next Next Local $finallen For $u = 0 To $c - 1 $finallen += $maxlen[$u][0] Next ConsoleWrite (' _' & _Repeat(' ',$finallen + $c) & '_' & @CRLF) For $i = 0 To $l-1;write lines For $u = 0 To $c-1;write columns $v = $i*($c) + $u +1 $char[$i][$u] = $split[$v] Switch $u Case 0; the first column If StringLen ($char[$i][$u])<$maxlen[$u][0] Then ConsoleWrite ('| ' & $char[$i][$u] & _Repeat(' ', $maxlen[$u][0]-StringLen ($char[$i][$u])+1)) Else ConsoleWrite ('| ' & $char[$i][$u] & ' ') EndIf Case 1 To $c-2 ;middle columns If $i > 0 Then If StringLen ($char[$i][$u]) < $maxlen[$u][0] Then ConsoleWrite ($char[$i][$u] & _Repeat(' ', $maxlen[$u][0]-StringLen ($char[$i][$u])+1)) Else ConsoleWrite ($char[$i][$u] & ' ' ) EndIf Else If StringLen ($char[$i][$u]) < $maxlen[$u][0] Then ConsoleWrite ($char[$i][$u] & _Repeat(' ', $maxlen[$u][0]-StringLen ($char[$i][$u])+1)) Else ConsoleWrite ($char[$i][$u] & ' ' ) EndIf EndIf Case Else ; the last column If StringLen ($char[$i][$u])<$maxlen[$u][0] Then ConsoleWrite ($char[$i][$u] & _Repeat(' ', $maxlen[$u][0]-StringLen ($char[$i][$u])+1) & ' |' & @CRLF) Else ConsoleWrite ($char[$i][$u] & ' |' & @CRLF) EndIf EndSwitch Next Next ConsoleWrite ('|_' & _Repeat(' ',$finallen + $c ) & '_|' & @CRLF) Func _Repeat($chars, $times);repeat a character in a specified time Local $rChar For $a = 1 To $times $rChar &= $chars Next Return $rChar EndFunc ;==>_Repeat
-
Okay, Aha, 91 posts to go
-
This program is not a joke, I use it to lock my computer when I want to study because I often lose focus on my homework. Lock it, can not play game, chat on Facebook anymore, just study!
-
Hi there! I created this stuff for anyone who wants to lock down their computer for a period of time. Very useful for parents to lock their son's computer It is very hard to terminate the program by Task Manager because it blocks your input every second and even shutting down Windows is useless because it starts on WIndows startup. Enjoỳ̀̀̀̀̀̀̀̀̀̀̀̀̀̀ <snip> To use it, please compile. Hey, my member's title is "Polymath", what does it mean?
-
A small stuff to hide your screen immediately:D
logmein replied to logmein's topic in AutoIt Example Scripts
^^ I often use Alt+F4 to close YouTube browser windows but it often gives a message prompt and I was caught by my teacher -
Just to hide your current desktop screen from being seen by someone. Just press Alt+Space and you're reading the NY Times or editing a Excel Spreadsheet! Code here: #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Outfile=D:Hider.exe #AutoIt3Wrapper_Outfile_x64=D:Hider64.exe #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Compile_Both=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Opt('TrayMenuMode',3) $about = TrayCreateItem ('&About') $exit = TrayCreateItem ('&Exit') HotKeySet ('!{Space}','_go') HotKeySet ('{esc}','_quit') While 1 Sleep (100) $msg = TrayGetMsg () Switch $msg Case $exit Exit Case $about MsgBox (64,'Screen Hider 1.0',StringFormat('SCREEN HIDER 1.0rnAuthor: Minh Thanh Huynh from autoitscript.com/forumrnEmail: minhthanh.autoit@gmail.comrnrnTo immediately change your screen, press Alt+Space and press Esc to quit. Watch your back! :D')) EndSwitch WEnd Func _go() $img = Random (1,5,1) SplashImageOn ('',$img & '.bmp',@DesktopWidth,@DesktopHeight,0,0,1) EndFunc Func _quit () SplashOff () EndFunc And here are some neccessary images: http://www.mediafire.com/?kssbhzyrq1l3d7s Have fun!^^ P/S: Hmm... My x64 executable file have been detected as a virus by AVG!
-
Thank you! It's very nice of you to help me! I'm learning SQLite now. I want my program is a simple stuff to search for fake process name. It's enough because to analyze a process deeply need tons of hard-working and a good knowledge in programming and antivirus.