Jump to content

AoRaToS

Active Members
  • Posts

    406
  • Joined

  • Last visited

About AoRaToS

  • Birthday 03/12/1987

Profile Information

  • Member Title
    s!mpL3
  • Location
    Greece
  • WWW
    http://www.simpL3.gr

Recent Profile Visitors

913 profile views

AoRaToS's Achievements

  1. Hello all, Any suggestions for new features?
  2. s!mpL3 LAN Messenger version 2.9.9.1 - [04/07/2019] - s!mpL3 LAN Messenger.zip 1. Fixed an issue that would occur when blocking another user and they would re-appear in the TreeView. 2. Updated File Transfers to make long file names shorter if they were too long to appear in the tray tip. 3. Removed notifications when checking for updates at application startup if there is no update available.
  3. False positives 😕 Last night I submitted s!mpL3 LAN Messenger for analysis since there were some false positives from Windows Defender and Microsoft on Virus Total. They responded that they have updated their definitions to not identify it as malware. If anyone has a concern, feel free to contact me either here or by email. ***Update: Microsoft - Removed detection Kaspersky - Removed detection Symantec - Removed detection DrWeb - Said it is not being detected (Virus Total says otherwise) McAfee - has not responded yet
  4. s!mpL3 LAN Messenger version 2.9.9.0 - [13/06/2019] - s!mpL3 LAN Messenger.zip 1. This is your first chance to try the new LAN Update feature! Just update s!mpL3 LAN Messenger on one computer and when it connects, all other computers on the network that have the option enabled should prompt you to update! I have made some fixes to LAN Update in this version which will be visible next time. One of them is a custom GUI to inform you of an update which doesn't block the rest of the Messenger like the message box does in version 2.9.8.9. 2. Fixed "Unblock" button in Blocked Users List so that it's disabled when the list is empty and enabled when there are users in it. 3. Fixed an issue with some GUIs not hiding as they should when using the "Hide" option. (Blocked Users List, License) 4. Fixed an issue where if you would block someone, the chat window with them would remain open, now it closes. I might change this to the window remaining but becoming disabled. 5. Fixed a bug with resizing conversation windows and the buttons overlapping. The edits do not resize perfectly but I will work on that in a future version. 6. Added new icons for sending/receiving files. This icon will appear in the Tray for each file transfer that is underway and provides information about the file being sent/received and the progress of the transfer. 7. Updated all links to https. 8. Fixed multiple smaller bugs.
  5. I have attached the Language file to this post. There may be some small changes needed after a translation is done, depending on the language! English.ini
  6. Anyone interested in translating s!mpL3 LAN Messenger to their language?
  7. You can call a second script from the first one and have a second tray icon, then whatever action you take on that button you have to pass it along to the first script. A small example using this method: make one script with this: TraySetIcon("Shell32.dll", "16") $iPID = Run('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & @DesktopDir & '\runtest.au3"' & ' ' & '1' & ' ' & 'help', "", @SW_HIDE) while 1 sleep(100) wend make a second script with this: (save it on your desktop as runtest.au3) TraySetIcon("Shell32.dll", "17") while 1 sleep(100) wend then run the first example. The first script will call the second script, you can even FileInstall the second script into the first one for this and delete after you're done. It is possible but there is a bit more to it in terms of passing along to the first script what is done to the tray of the second one.
  8. Maybe something like this works? Global $count = 0 HotKeySet ("+{F7}" , "temp") While 1 Sleep(100) WEnd Func temp() $count = $count + 1 $WindowList = WinList() Local $NewWindowList[100][10] $newcount = 1 For $i = 1 To $WindowList[0][0] If $WindowList[$i][0] <> "" And BitAND(WinGetState($WindowList[$i][1]), 2) Then $NewWindowList[0][0] = $newcount $NewWindowList[$newcount][0] = ($WindowList[$i][0]) $NewWindowList[$newcount][1] = ($WindowList[$i][1]) $newcount = $newcount + 1 EndIf Next If $count > $NewWindowList[0][0] then $count = 1 WinActivate($NewWindowList[$count][1]) EndFunc
  9. Have you tried using WinActive() in case the send command is being sent before the window actually becomes active? Also, _WinAPI_GetWindow ($hwnd1, $GW_HWNDNEXT) will return as explained in Function Reference -> " $GW_HWNDNEXT - The retrieved handle identifies the window below the specified window in the Z order. If the specified window is a topmost window, the handle identifies the topmost window below the specified window. If the specified window is a top-level window, the handle identifies the top-level window below the specified window. If the specified window is a child window the handle identifies the sibling window below the specified window. " So it is not always the next window...
  10. s!mpL3 LAN Messenger 2.9.8.9 - [28/05/2019] 1. Created a Block/Unblock mechanism. Added a Block option to the right click context menu of the TreeView which blocks the user you've chosen. Using the menu bar you can view the blocked users and unblock them. Blocked users will be removed from your list and you will be removed from theirs. 2. Added a context menu in the main edit control of conversation windows with the options: "Select All" (enabled if there is text and is not already all selected) and "Copy" (if there is text selected), since these were not available after changing to a Rich Edit control. 3. Added an Auto-Update feature. When this is turned on (which requires checking for updates on s!mpL3 LAN Messenger startup) and an update is found, it will proceed automatically without any prompts. This also allows for "Start Hidden" (as long as either the tray icon or the hotkey is set) to be enabled at the same time and all prompts of the update are suppressed. 4. Added a LAN Update feature. When this feature is turned on, if another user connects to the same LAN as you and is running a newer version of s!mpL3 LAN Messenger, you will be prompted to update to that version. This allows for updating even when computers on a network do not have internet access. If you decline the update, you won't be informed again until you restart the application. The option can be turned off from Edit->Preferences->General->LAN Update. 5. Conversation window positions are now saved so they open where they were left the last time. You can reset their position by going to Edit->Preferences->Maintenance and clicking the related option. 6. Fixed a lot of small bugs.
  11. Soon I will post an updated version with a few fixes as well as some new features including: - Added the ability to Block/Unblock users - Added a right click context menu in the message viewer to select all or copy text - Made message windows resizable and now their position and size is also saved and restored after closing them or quitting the application.
  12. I use Do...Until for TCP file transfer, what kind of data are you sending?
  13. Try this: #RequireAdmin #NoTrayIcon #include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> #include <ProgressConstants.au3> #include <ButtonConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Global $Place Global $Download = 9999 main() Func main() $Form2 = GUICreate("Form2", 626, 491, 466, 301) $Download = GUICtrlCreateButton("Download", 264, 416, 150, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Download VLC() Sleep(3000) Flash() EndSelect WEnd EndFunc Func FileSize($TDown, Const $Place) ; Get file size Local Static $aSize[4] = ["Bytes", "KB", "MB", "GB"] For $a = 0 To 3 $TDown /= 1024 If (Int($TDown) = 0) Then Return Round($TDown * 1024, $Place) & " " & $aSize[$a] Next EndFunc ;==>FileSize Func VLC() $DownloadLbl = GUICtrlCreateLabel(@CRLF & @CRLF & 'Installing VLC Player...', 232, 112, 345, 193) $LBL_Percent = GUICtrlCreateLabel("", 232, 256, 45, 30) ; Show % lable $LBL_Size = GUICtrlCreateLabel("", 232, 272, 45, 30) ; Show File size lable GUICtrlSetFont(-1, 11, 400, 0, "Arial") Local $sfldr = "C:\Temp" DirCreate($sfldr) Local $Src = "http://get.videolan.org/vlc/2.2.4/win32/vlc-2.2.4-win32.exe" ;Set URL $Dest = $sfldr & '\vlc.exe' ;Set folder $Down = InetGet($Src, $Dest, 1, 1) $SrcSize1 = InetGetSize($Src) ;Get file size Local $idProgressbar1 = GUICtrlCreateProgress(288, 256, 238, 17) GUICtrlSetColor(-1, 32250); not working with Windows XP Style ;Local $Size = InetGetSize($Src,0) ;get the size of the update While Not InetGetInfo($Down, 2) Sleep(100) $DownldBytes = InetGetInfo($Down, 0) ;Get bytes received $Percent = Int(($DownldBytes / $SrcSize1) * 100) ;Calculate percentage ;~ Local $Percent = Round((InetGetInfo($Down,0)/$Size)*100) $TSize = $SrcSize1 - $DownldBytes GUICtrlSetData($idProgressbar1,$Percent) GUICtrlSetData($DownloadLbl, FileSize($TSize, $Place = 2)) GUICtrlSetData($LBL_Percent,$Percent & "%") Sleep(100) WEnd GUICtrlSetState($DownloadLbl, $GUI_HIDE) EndFunc Func Flash() $FLashLbl = GUICtrlCreateLabel(@CRLF & @CRLF & 'Installing Adobe Flash Player...', 232, 112, 345, 193) $LBL_Percent = GUICtrlCreateLabel("", 232, 256, 45, 30) ; Show % lable $LBL_Size = GUICtrlCreateLabel("", 232, 272, 45, 30) ; Show File size lable GUICtrlSetFont(-1, 11, 400, 0, "Arial") Local $sfldr = "C:\Temp" DirCreate($sfldr) Local $Src = "http://download.windowsupdate.com/c/msdownload/update/software/updt/2016/08/windows10.0-kb3189031-x64_c7005a17908712ef9c7eee7389343900da6cee08.msu" ;Set URL $Dest = $sfldr & '\Flash.exe' ;Set folder $Down = InetGet($Src, $Dest, 1, 1) $SrcSize1 = InetGetSize($Src) ;Get file size Local $idProgressbar1 = GUICtrlCreateProgress(288, 216, 238, 17) GUICtrlSetColor(-1, 32250); not working with Windows XP Style ;Local $Size = InetGetSize($Src,0) ;get the size of the update While Not InetGetInfo($Down, 2) Sleep(100) $DownldBytes = InetGetInfo($Down, 0) ;Get bytes received $Percent = Int(($DownldBytes / $SrcSize1) * 100) ;Calculate percentage ;~ Local $Percent = Round((InetGetInfo($Down,0)/$Size)*100) $TSize = $SrcSize1 - $DownldBytes GUICtrlSetData($idProgressbar1,$Percent) GUICtrlSetData($FLashLbl, FileSize($TSize, $Place = 2)) GUICtrlSetData($LBL_Percent,$Percent & "%") Sleep(100) WEnd GUICtrlSetState($FLashLbl, $GUI_HIDE) EndFunc
×
×
  • Create New...