API tools faq
paste
Advertisement
Jistjak

My Hotspot (with binary).vbs

Jistjak
Oct 3rd, 2019
890
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 30.61 KB | None | 0 0
raw download clone embed print report
  1. Rem Project Started Friday, June 17, 2016, 10:27:53 AM
  2. Rem Save this file as a .vbs instead of a .txt
  3.  
  4.  
  5. Dim DEVELOPER
  6.  
  7. Rem To enable developer mode, change "DEVELOPER=False" to "DEVELOPER=True" without quotes.
  8.  
  9. DEVELOPER=False
  10.  
  11.  
  12. Rem Declare Main
  13.  
  14. Dim FSO
  15. Set FSO = WScript.CreateObject("Scripting.Filesystemobject")
  16. Dim Shell
  17. Set Shell=CreateObject ("Shell.Application")
  18. Dim WshShell
  19. Set WshShell = WScript.CreateObject("Wscript.Shell")
  20. Dim WatchDogPath
  21. Dim HotSpotPath
  22. Dim HotSpot
  23. Dim ID, TMPPath, ImmaHerePath, ImmaHere, ISExe, IconPath
  24.  
  25.  
  26.  
  27.  
  28.  
  29. Rem has this script been converted to a direct executable
  30. If LCase ( FSO.GetExtensionName(WScript.ScriptFullName))="exe" Then ISExe=True Else ISExe=False
  31.  
  32.  
  33. Rem Check for Icon
  34. If ISExe Then
  35.     IconPath=WScript.ScriptFullName
  36. Else
  37.     IconPath=FSO.GetParentFolderName (WScript.ScriptFullName) & "\My HotSpot.ico"
  38. End If
  39.  
  40. If Not FSO.FileExists (IconPath) Then
  41.    
  42.     Call CreateIcon (IconPath)
  43.    
  44. End If
  45.  
  46.  
  47.  
  48. Rem Request Administrator
  49.  
  50. If WScript.Arguments.length =0 Then
  51.    
  52.     MsgBox "This App needs to be run as an administrator because NetSh.exe requires administrator's permission to set and start the HostedNetwork (HotSpot).",vbExclamation,"Administrator Permission required to use HostedNetwork."
  53.    
  54.     If ISExe Then
  55.        
  56.         Shell.ShellExecute WScript.ScriptFullName,"/uac","","runas",1
  57.        
  58.     Else
  59.         Shell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " /uac", "", "runas", 1
  60.     End If
  61.    
  62.     WScript.Quit
  63.    
  64. Else
  65.     If WScript.Arguments(0)<>"/uac" Then
  66.        
  67.        
  68.         MsgBox "This App needs to be run as an administrator because NetSh.exe requires administrator's permission to set and start the HostedNetwork (HotSpot).",vbExclamation,"Administrator Permission required to use HostedNetwork."
  69.        
  70.         If ISExe Then
  71.            
  72.             Shell.ShellExecute WScript.ScriptFullName,"/uac","","runas",1
  73.            
  74.         Else
  75.             Shell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " /uac", "", "runas", 1
  76.         End If
  77.         WScript.Quit
  78.        
  79.     End If
  80.    
  81. End If
  82.  
  83.  
  84.  
  85. Rem Developer false if not true
  86.  
  87. If Not DEVELOPER Then
  88.     DEVELOPER=False
  89. End If
  90.  
  91.  
  92.  
  93. Rem Declare TempPath
  94.  
  95. TMPPath=FSO.GetSpecialFolder (2) & "\HotSpot With NetShare"
  96. ImmaHerePath=TMPPath & "\IsThereAnybodyOUTTHERE.txt"
  97.  
  98.  
  99.  
  100.  
  101.  
  102. Call StartHotSpotApp
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109. Sub StartHotSpotApp
  110.    
  111.    
  112.     Rem Build temppath if it does not exist
  113.    
  114.     If Not FSO.FolderExists (TMPPath) Then
  115.         FSO.CreateFolder (TMPPath)
  116.     End If
  117.    
  118.    
  119.    
  120.     Rem Declare HotSpot Path
  121.    
  122.    
  123.     ID=0
  124.    
  125.     Do
  126.        
  127.         HotSpotPath=TMPPath & "\HotSpot" & ID & ".hta"
  128.         If FSO.FileExists (HotSpotPath) Then
  129.             ID=ID+1
  130.         Else
  131.             Exit Do
  132.         End If
  133.        
  134.     Loop
  135.    
  136.    
  137.    
  138.    
  139.    
  140.     Rem Declare WatchDog Path
  141.    
  142.    
  143.     ID=0
  144.    
  145.     Do
  146.        
  147.         WatchDogPath=TMPPath & "\WatchDogTimer" & ID & ".txt"
  148.        
  149.         If FSO.FileExists (WatchDogPath) Then
  150.             ID=ID+1
  151.         Else
  152.             Exit Do
  153.         End If
  154.        
  155.     Loop
  156.    
  157.    
  158.    
  159.    
  160.     Rem Create Watchdog
  161.    
  162.     FSO.CreateTextFile (WatchDogPath).Write ("uninitialized")
  163.    
  164.    
  165.    
  166.     Rem Create HotSpot app
  167.    
  168.     CreateMyHotSpot HotSpotPath
  169.    
  170.    
  171.     Rem Start the HotSpot App
  172.    
  173.    
  174.    
  175.     Set HotSpot=Nothing
  176.    
  177.     Set HotSpot = WshShell.Exec ("mshta " & Chr (34) & HotSpotPath & Chr (34) & " /uac")
  178.    
  179.    
  180.    
  181.    
  182.    
  183.    
  184.     Rem Watchdog the watchdog out of it.
  185.     Dim UDate,LDate,DiffDate,ODate, UninitializeCount, NotDateCount, ErrCount, X, FileNotHere, FileTooSmall, MaxRetries
  186.    
  187.     MaxRetries=3
  188.    
  189.    
  190.     On Error Resume Next
  191.     LDate=Now
  192.     UninitializeCount=0
  193.     NotDateCount=0
  194.     ErrCount=0
  195.     FileNotHere=0
  196.     FileTooSmall=0
  197.    
  198.     Do While HotSpot.Status=0
  199.        
  200.        
  201.         WScript.Sleep 1200
  202.        
  203.        
  204.         'respond to ImmaHere
  205.         If FSO.FileExists (ImmaHerePath) Then
  206.             Set ImmaHere = FSO.GetFile (ImmaHerePath).OpenAsTextStream(2)
  207.             ImmaHere.Write ("Welcome To The Machine")
  208.             ImmaHere.Close
  209.             Set ImmaHere=Nothing
  210.         End If
  211.        
  212.        
  213.        
  214.        
  215.         If Not FSO.FileExists (WatchDogPath) Then
  216.            
  217.             FileNotHere=FileNotHere+1
  218.            
  219.            
  220.             If FileNotHere>=MaxRetries Then
  221.                
  222.                 HotSpot.Terminate
  223.                 X=MsgBox ("Uh-Oh. The Watchdog file is missing. How would i know if the MyHotSpot app is still operational. Force Closed the window due to the WatchDog timer file missing. You may try to restart the My HotSpot app, your Hosted Network settings are unchanged.",vbRetryCancel + vbExclamation,"Missing WatchDogTimer.")
  224.                
  225.                 If X=vbRetry Then
  226.                     Call StartHotSpotApp
  227.                     Exit Sub
  228.                 End If
  229.                
  230.                
  231.             End If
  232.            
  233.            
  234.         Else
  235.            
  236.             If FSO.GetFile (WatchDogPath).Size=0 Then
  237.                
  238.                 FileTooSmall=FileTooSmall+1
  239.                
  240.                 If FileTooSmall>=MaxRetries Then
  241.                    
  242.                     HotSpot.Terminate
  243.                     X=MsgBox ("It appears that the Watchdog timer function may have misfunctioned on the My HotSpot window. The Reset kept leaving the Watchdog file blank. This may be because the watchdog resetter can't access the watchdog file. Don't know why that would be. But you may try to restart the My HotSpot app. Your Hosted Network settings are unchanged.",vbRetryCancel + vbExclamation,"Empty Watchdog response.")
  244.                    
  245.                     If X=vbRetry Then
  246.                         Call StartHotSpotApp
  247.                         Exit Sub
  248.                     End If
  249.                    
  250.                 End If
  251.                
  252.                
  253.             Else
  254.                
  255.                 FileNotHere=0
  256.                 FileTooSmall=0
  257.                
  258.                 Set ODate=FSO.GetFile (WatchDogPath).OpenAsTextStream (1,-2)
  259.                
  260.                 UDate=ODate.ReadLine
  261.                 ODate.Close
  262.                 Set ODate=Nothing
  263.                
  264.                
  265.                
  266.                
  267.                
  268.                
  269.                
  270.                 'is the window even responsive?
  271.                 If UDate="uninitialized" Then
  272.                    
  273.                     UninitializeCount=UninitializeCount+1
  274.                    
  275.                     If UninitializeCount>=MaxRetries Then
  276.                         HotSpot.Terminate
  277.                         x=MsgBox ("It appears that the hotspot window failed to initialize properly. This is a common Bug in microsoft's MSHTA application. You can try again if you wish.",vbRetryCancel + vbExclamation,"HTA app failed to start.")
  278.                        
  279.                         If X=vbRetry Then
  280.                             Call StartHotSpotApp
  281.                             UninitializeCount=0
  282.                             Exit Sub
  283.                         End If
  284.                        
  285.                        
  286.                     End If
  287.                 Else
  288.                     'it appears that the window is responsive
  289.                    
  290.                    
  291.                    
  292.                     'is the window giving me a date
  293.                     If IsDate (UDate) Then
  294.                         NotDateCount=0
  295.                        
  296.                         'record the date to last date for no reason
  297.                        
  298.                         If UDate <> LDate Then
  299.                            
  300.                             LDate = UDate
  301.                         End If
  302.                        
  303.                        
  304.                         'If window has not reset the timer for a full minute (become unresponsive) then window will terminate
  305.                         If DateDiff ("s",UDate, Now) >60 Then
  306.                             HotSpot.Terminate
  307.                            
  308.                             X=MsgBox ("It appears that the HotSpot app has been unresponsive for at least a full minute (This could also be the result of waking the computer from sleep or hibernate. Since the Watchdog timer doesn't reset during sleep or hibernation.). So it has been terminated. However, the HostedNetwork may still be running if it was running while the My HotSpot App was open. You can try to run the program again.", vbExclamation + vbRetryCancel,"My HotSpot has become unresponsive.")
  309.                            
  310.                             If X=vbRetry Then
  311.                                 Call StartHotSpotApp
  312.                                 Exit Sub
  313.                             End If
  314.                            
  315.                         End If
  316.                        
  317.                     Else
  318.                         'window has not given me a date or i had trouble reading it
  319.                        
  320.                         NotDateCount=NotDateCount+1
  321.                        
  322.                         If NotDateCount>=MaxRetries Then
  323.                             HotSpot.Terminate
  324.                            
  325.                             X=MsgBox ("There was " & MaxRetries & " consecutive errors relating to the watchdog timer's file not containing a usable date."&_
  326.                             vbCrLf & vbCrLf & "Here is what the File reads" & vbCrLf & UDate & vbCrLf & vbCrLf & " This is a Bug that the developer should be aware of. You can try restarting the app.",vbCritical + vbRetryCancel,"Error Unusable Date in Watchdog timer response file.")
  327.                            
  328.                             If X=vbRetry Then
  329.                                
  330.                                 Call StartHotSpotApp
  331.                                 Exit Sub
  332.                                
  333.                             End If
  334.                            
  335.                            
  336.                         End If
  337.                        
  338.                     End If
  339.                    
  340.                     If Err Then
  341.                         ErrCount = ErrCount+1
  342.                     Else
  343.                         ErrCount=0
  344.                     End If
  345.                    
  346.                     If ErrCount>=MaxRetries Then
  347.                         HotSpot.Terminate
  348.                        
  349.                         X=MsgBox ("ERROR there are " & MaxRetries & " consecutive errors (meaning of the last " & MaxRetries & " tries each of them resulted in an error) the last error recorded was" & vbCrLf &_
  350.                         "Source:      " & Err.Source & vbCrLf &_
  351.                         "Number:      " & Err.Number & vbCrLf &_
  352.                         "Description: " & Err.Description & vbCrLf & vbCrLf & vbCrLf &_
  353.                         "This is something that the developer should be aware of." & vbCrLf & vbCrLf & "You may try again if you want.",vbCritical + vbRetryCancel,MaxRetries & " Consecutive Errors")
  354.                        
  355.                         If X=vbRetry Then
  356.                             Call StartHotSpotApp
  357.                             Exit Sub
  358.                         End If
  359.                        
  360.                        
  361.                     End If
  362.                     Err.Clear
  363.                 End If
  364.             End If
  365.         End If
  366.     Loop
  367.    
  368.    
  369.    
  370.     'Clean up
  371.    
  372.     FSO.DeleteFile HotSpotPath,True
  373.     FSO.DeleteFile WatchDogPath,True
  374.    
  375.    
  376.     'Check for other instances
  377.     'delete the tmpfolder if no other instances are running.
  378.    
  379.     FSO.OpenTextFile (ImmaHerePath,2,True).Write("")
  380.     WScript.Sleep 5000
  381.     If FSO.FileExists (ImmaHerePath) Then
  382.         If FSO.GetFile (ImmaHerePath).OpenAsTextStream (1,-2).ReadAll="" Then
  383.             FSO.DeleteFolder TMPPath,True
  384.         End If
  385.     End If
  386.    
  387.    
  388.    
  389.    
  390.    
  391. End Sub
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  
  404.  
  405.  
  406.  
  407.  
  408.  
  409. Function RunAndGet (Command)
  410.    
  411.     Dim TMP, return,file,text,Textp, id
  412.    
  413.    
  414.    
  415.     id=1
  416.    
  417.    
  418.     Do
  419.         Textp= TMPPath & "\" & FSO.GetTempName & "out" & id & "put.txt"
  420.        
  421.        
  422.         If FSO.FileExists (Textp) Then
  423.             id=id+1
  424.         Else
  425.             Exit Do
  426.         End If
  427.     Loop
  428.    
  429.    
  430.     return = WshShell.Run("cmd /c " & Command & " > " & Chr (34) & Textp & Chr(34), 0, True)
  431.    
  432.     Set file = FSO.OpenTextFile(Textp, 1)
  433.     text = file.ReadAll
  434.     file.Close
  435.     Set file=Nothing
  436.     FSO.DeleteFile Textp,True
  437.    
  438.     RunAndGet=text
  439.    
  440. End Function
  441.  
  442.  
  443.  
  444.  
  445.  
  446.  
  447.  
  448.  
  449.  
  450.  
  451.  
  452. Function CreateMyHotSpot (HotSpotPath)
  453.    
  454.     Dim HotSpot
  455.    
  456.     Set HotSpot=FSO.CreateTextFile (HotSpotPath)
  457.    
  458.     With HotSpot
  459.        
  460.         Rem Head (DO NOT IMPORT DIRECTLY FROM WINDOW)
  461.         .WriteLine ("<!-- Rem Head (DO NOT IMPORT DIRECTLY FROM WINDOW) -->"):.WriteLine (vbTab & "<html>"):.WriteLine (vbTab & "<head>"):.WriteLine (vbTab & "<title>My HotSpot</title>"):.WriteLine (vbTab & "<HTA:APPLICATION"):.WriteLine (vbTab & "APPLICATIONNAME=""My HotSpot"""):.WriteLine (vbTab & "ID=""HotSpot"""):
  462.         .WriteLine ("ICON=" & Chr (34) & IconPath & Chr (34)):
  463.         .WriteLine (vbTab & "VERSION=""1.0""/>"):.WriteLine (vbTab & "</head>"):.WriteBlankLines (6)
  464.        
  465.        
  466.        
  467.         Rem Start Script
  468.         .WriteLine ("<!-- Rem Start Script -->"):.WriteLine (vbTab & "<script language=""VBScript"">"):.WriteBlankLines (3)
  469.        
  470.         Rem SCRIPT: Declare Main (Objects, variablenames,etc)
  471.         .WriteLine ("Rem SCRIPT: Declare Main (Objects, variablenames,etc)"):.WriteLine (vbTab & "Dim WatchdogPath, WatchDogTimer"):.WriteLine (vbTab & "Dim DEVELOPER"):.WriteLine("Dim WshShell,ImmaHerePath"):.WriteLine (vbTab & "Set WshShell = CreateObject(""WScript.Shell"")"):.WriteLine (vbTab & "Dim Shell"):.WriteLine (vbTab & "Set Shell=CreateObject(""Shell.Application"")"):.WriteLine (vbTab & "Dim FSO"):.WriteLine (vbTab & "Set FSO = CreateObject(""Scripting.Filesystemobject"")"):.WriteLine (vbTab & "Dim TMPPath, VbsName"):.WriteBlankLines (6)
  472.        
  473.         Rem SCRIPT: Declare TransMain (Variable Values. Caution, do not import directly from hta window source)
  474.         .WriteLine ("Rem SCRIPT: Declare TransMain (Variable Values. Caution, do not import directly from hta window source)")
  475.         .WriteLine (vbTab & "VbsName=" & Chr (34) & WScript.ScriptName & Chr (34)):
  476.         .WriteLine (vbTab & "DEVELOPER=" & DEVELOPER):
  477.         .WriteLine (vbTab & "ImmaHerePath=" & Chr (34) & ImmaHerePath & Chr (34)):
  478.         .WriteLine (vbTab & "TMPPath=" & Chr (34) & TMPPath & Chr (34)):
  479.         .WriteLine (vbTab & "WatchdogPath=" & Chr(34) & WatchDogPath & Chr (34)):
  480.         .WriteBlankLines (5)
  481.        
  482.        
  483.        
  484.         Rem SCRIPT: Check Developer
  485.         .WriteLine ("Rem SCRIPT: Check Developer"):.WriteLine (vbTab & "Sub CheckDeveloper"):.WriteLine (vbTab & "  If Not DEVELOPER Then"):.WriteLine (vbTab & "       DeveloperOptions.innerHTML=""<table border=""""10px"""" bgcolor=buttonface title=""""You can enable developer options by reading the source code of "" & VbsName & "". There are instructions on enabling it within the first 10 lines""""><tr><td bgcolor=buttonhighlight><strong><u><i><center>My Hotspot</center></i></u></strong></td></tr><tr><td>Turn your computer into a makeshift wifi LAN</td></tr></table>"""):.WriteLine (vbTab & " End If"):.WriteLine (vbTab & "End Sub"):.WriteBlankLines (3)
  486.        
  487.         Rem SCRIPT: Check UAC
  488.         .WriteLine ("Rem SCRIPT: Check UAC"):.WriteLine (vbTab & "If Replace ( HotSpot.Commandline,""/uac"","""")=HotSpot.Commandline Then"):.WriteLine (vbTab & "  MsgBox ""This App needs To be run as an administrator. because NetSh needs administrator privilages To start. No worries this program will Not harm your computer. Check the source code your self If you want."",vbExclamation"):.WriteLine (vbTab & " Shell.ShellExecute ""mshta.exe"", Chr(34) & document.location.pathname & Chr(34) & "" /uac"", """", ""runas"", 1"):.WriteLine (vbTab & "    window.close"):.WriteLine (vbTab & "End If"):.WriteBlankLines (3)
  489.        
  490.         Rem SCRIPT: Window Onload
  491.         .WriteLine ("Rem SCRIPT: Window Onload"):.WriteLine (vbTab & "Sub Window_OnLoad"):.WriteLine (" CheckDeveloper"):.WriteLine (vbTab & "  WatchDogTimer= Self.setInterval (""WatchDogTimerReset"",1000)"):.WriteLine (vbTab & "   output.value=UpdateConnectedList"):.WriteLine (vbTab & "End Sub"):.WriteBlankLines (3)
  492.        
  493.         Rem SCRIPT: OpenTmpPath
  494.         .WriteLine ("Rem SCRIPT: OpenTmpPath"):.WriteLine (vbTab & "Sub OpenTmpPath"):.WriteLine (vbTab & " Shell.Explore (TMPPath)"):.WriteLine (vbTab & "End Sub"):.WriteBlankLines (3)
  495.        
  496.         Rem SCRIPT: Open With HTA Edit
  497.         .WriteLine ("Rem SCRIPT: Open With HTA Edit"):.WriteLine (vbTab & "Sub OpenWithHTAEdit"):.WriteLine (vbTab & "  On Error Resume Next"):.WriteLine (vbTab & "    WshShell.Run ""htaedit "" & Chr (34) & Document.Location.Pathname & Chr (34)"):.WriteLine (vbTab & "End Sub"):.WriteBlankLines (3)
  498.        
  499.         Rem SCRIPT: Run And Get
  500.         .WriteLine ("Rem SCRIPT: Run And Get"):.WriteLine (vbTab & "Function RunAndGet (Command)"):.WriteLine (vbTab & "    Dim TMP, return,file,text,Textp, id"):.WriteLine (vbTab & " TMP=TMPPath"):.WriteLine (vbTab & " ID=1"):.WriteLine (vbTab & "    Do"):.WriteLine (vbTab & "      Textp= TMP & ""\"" & FSO.GetTempName & ""out"" & id & ""put.txt"""):.WriteLine (vbTab & "       If FSO.FileExists (Textp) Then"):.WriteLine (vbTab & "          id=id+1"):.WriteLine (vbTab & "     Else"):.WriteLine (vbTab & "            Exit Do"):.WriteLine (vbTab & "     End If"):.WriteLine (vbTab & "  Loop"):.WriteLine (vbTab & "    return = WshShell.Run(""cmd /c "" & Command & "" > "" & Chr (34) & Textp & Chr(34), 0, True)"):.WriteLine (vbTab & "    Set file = FSO.OpenTextFile(Textp, 1)"):.WriteLine (vbTab & "   text = file.ReadAll"):.WriteLine (vbTab & " file.Close"):.WriteLine (vbTab & "  Set file=Nothing"):.WriteLine (vbTab & "    FSO.DeleteFile Textp,True"):.WriteLine (vbTab & "   RunAndGet=text"):.WriteLine (vbTab & "End Function"):.WriteBlankLines (3)
  501.        
  502.         Rem SCRIPT: Show Hide Password
  503.         .WriteLine ("Rem SCRIPT: Show Hide Password"):.WriteLine (vbTab & "Sub ShowHidePassword"):.WriteLine (vbTab & " If chkShowPassword.checked Then"):.WriteLine (vbTab & " passwordfield.innerhtml=""<input id=Password type=text value="" & Chr (34) & password.value & Chr (34) & ""title="" & Chr (34) & Password.Title & Chr (34) & "">"""):.WriteLine (vbTab & "  Else"):.WriteLine (vbTab & "    passwordfield.innerhtml=""<input id=Password type=password value="" & Chr (34) & password.value & Chr (34) & ""title="" & Chr (34) & Password.Title & Chr (34) & "">"""):.WriteLine (vbTab & "  End If"):.WriteLine (vbTab & "End Sub"):.WriteBlankLines (3)
  504.        
  505.         Rem SCRIPT: StartHotSpot3
  506.         .WriteLine ("Rem SCRIPT: StartHotSpot3"):.WriteLine (vbTab & "Sub StartHotSpot3"):.WriteLine (vbTab & " Dim asdf,jkl,jklk"):.WriteLine (vbTab & "   jkl= RunAndGet (""netsh wlan Set hostednetwork mode=allow ssid="" & Chr (34) & ssid.value & Chr (34) & "" key="" & Chr (34) & password.value & Chr(34))"):.WriteLine (vbTab & " jklk= RunAndGet (""netsh wlan start hostednetwork"")"):.WriteLine (vbTab & "    output.value=jkl & vbCrLf & jklk & vbCrLf & UpdateConnectedList"):.WriteLine (vbTab & "End Sub"):.WriteBlankLines (3)
  507.        
  508.         Rem SCRIPT: StopHotSpot3
  509.         .WriteLine ("Rem SCRIPT: StopHotSpot3"):.WriteLine (vbTab & "Sub StopHotSpot3"):.WriteLine (vbTab & "   Dim jkl"):.WriteLine (vbTab & " jkl=RunAndGet (""netsh wlan stop hostednetwork"")"):.WriteLine (vbTab & "   output.value=jkl"):.WriteLine (vbTab & "End Sub"):.WriteBlankLines (3)
  510.        
  511.         Rem SCRIPT: UpdateConnectedList
  512.         .WriteLine ("Rem SCRIPT: UpdateConnectedList"):.WriteLine (vbTab & "Function UpdateConnectedList"):.WriteLine (vbTab & "    Dim aj,ja"):.WriteLine (vbTab & "   ja=RunAndGet (""netsh wlan show hostednetwork"")"):.WriteLine (vbTab & "    UpdateConnectedList=ja"):.WriteLine (vbTab & "End Function"):.WriteBlankLines (3)
  513.        
  514.         Rem SCRIPT: WatchDogTimerReset
  515.         .WriteLine ("Rem SCRIPT: WatchDogTimerReset"):.WriteLine (vbTab & "Sub WatchDogTimerReset"):.WriteLine (vbTab & "   On Error Resume Next"):.WriteLine (vbTab & "    Dim asdf,jkl"):.WriteLine (vbTab & "    Set asdf=FSO.GetFile (WatchdogPath).OpenAsTextStream (2)"):.WriteLine (vbTab & "    asdf.Write (Now)"):.WriteLine (vbTab & "    asdf.Close"):.WriteLine (vbTab & "  Set asdf=Nothing"):.WriteLine (vbTab & "    If FSO.FileExists (ImmaHerePath) Then"):.WriteLine (vbTab & "       Set jkl = FSO.GetFile (ImmaHerePath).OpenAsTextStream (2)"):.WriteLine (vbTab & "       jkl.Write(""WhenIWasAChildICaughtAFleetingGlimpseFromTheCornerOfMyEye"")"):.WriteLine (vbTab & "        jkl.Close"):.WriteLine (vbTab & "       Set jkl=Nothing"):.WriteLine (vbTab & " End If"):.WriteLine (vbTab & "End Sub"):.WriteBlankLines (3)
  516.        
  517.         Rem END SCRIPT
  518.         .WriteLine ("Rem END SCRIPT"):.WriteLine (vbTab & "</script>"):.WriteBlankLines (3)
  519.        
  520.        
  521.         .WriteBlankLines (10)
  522.        
  523.        
  524.        
  525.        
  526.        
  527.         Rem Start Body
  528.         .WriteLine ("<!-- Rem Start Body -->"):.WriteLine (vbTab & "<body bgcolor=""white"">"):.WriteLine (vbTab & "<center>"):.WriteBlankLines (3)
  529.        
  530.         Rem BODY: Developer Options
  531.         .WriteLine ("<!-- Rem BODY: Developer Options -->"):.WriteLine (vbTab & "<Span ID=DeveloperOptions>"):.WriteLine (vbTab & " <table border=""10px"" bgcolor=buttonface><tr><td bgcolor=buttonhighlight>"):.WriteLine (vbTab & "      <strong><u><i><center>You Are a DEVELOPER</center></i></u></strong></td></tr><tr><td>"):.WriteLine (vbTab & "       <button onclick=OpenWithHTAEdit title=""Open HTA edit with this window's source code."">Open With HTA Edit.</button>"):.WriteLine (vbTab & "        <button onclick=OpenTmpPath title=""Open the path to this app and view and edit the files associated with this program."">Open TmpPath</button>"):.WriteLine (vbTab & " </td></tr></table>"):.WriteLine (vbTab & "</span>"):.WriteBlankLines (3)
  532.        
  533.         Rem BODY: SSID
  534.         .WriteLine ("<!-- Rem BODY: SSID -->"):.WriteLine (vbTab & "Network Name (SSID): <input id=SSID type=text value=Name title=""Name of the hotspot. this Is what will be visible To other devices"">"):.WriteLine (vbTab & "<br>"):.WriteBlankLines (3)
  535.        
  536.         Rem BODY: Key
  537.         .WriteLine ("<!-- Rem BODY: Key -->"):.WriteLine (vbTab & "Network Password&nbsp&nbsp&nbsp&nbsp&nbsp : "):.WriteLine (vbTab & "<span id=PasswordField><input id=Password type=password value=password title=""Password of the hotspot. you will need To input this password In order To connect To this hotspot.""> "):.WriteLine (vbTab & "</span>"):.WriteLine (vbTab & "<br>"):.WriteLine (vbTab & "<span onclick=showhidepassword title=""When Checked, the password will be visible. When Unchecked, the password will not be visible."">"):.WriteLine (vbTab & "<input id=CHKShowPassword type=checkbox>"):.WriteLine (vbTab & "<span onclick=""CHKShowPassword.Checked=Not CHKShowPassword.checked"" onmouseenter=""document.body.style.cursor='hand'"" onmouseleave=""document.body.style.cursor=''"">"):.WriteLine (vbTab & "Show Password"):.WriteLine (vbTab & "</span></span>"):.WriteLine (vbTab & "<br>"):.WriteBlankLines (3)
  538.        
  539.         Rem BODY: Buttons
  540.         .WriteLine ("<!-- Rem BODY: Buttons -->"):.WriteLine (vbTab & "<button onclick=StartHotSpot3 title=""Launches the hotspot With the SSID And Password provided"">Launch</button>"):.WriteLine (vbTab & "<button onclick=StopHotSpot3 title=""Terminate the hotspot"">Stop</button>"):.WriteLine (vbTab & "<button onclick=""output.value=updateconnectedlist"" title=""Update the info"">Update List</button>"):.WriteLine (vbTab & "<br>"):.WriteBlankLines (3)
  541.        
  542.         Rem BODY: OutPut
  543.         .WriteLine ("<!-- Rem BODY: OutPut -->"):.WriteLine (vbTab & "<textarea id=output cols=100 rows=20 title=""Displays the informations, errors, warnings, status, etc. from the netsh command""></textarea>"):.WriteBlankLines (3)
  544.        
  545.         Rem END
  546.         .WriteLine ("<!-- Rem END -->"):.WriteLine (vbTab & "</center>"):.WriteLine (vbTab & "</body>"):.WriteLine (vbTab & "</html>")
  547.        
  548.         .Close
  549.     End With
  550.    
  551.    
  552.    
  553. End Function
  554.  
  555.  
  556.  
  557.  
  558.  
  559.  
  560.  
  561.  
  562.  
  563.  
  564.  
  565.  
  566.  
  567.  
  568.  
  569. Sub CreateIcon (Path)
  570.  
  571. Dim FSO
  572. Set FSO = CreateObject("Scripting.Filesystemobject")
  573.  
  574.  
  575. Dim asdf, return
  576.  
  577. Rem binary data for the Icon
  578. Return="!;!;#;!;#;!;E;E;!;!;#;!;*;!;Ð;*;!;!;9;!:3;M;!:3;E;!:3;e;!:3;#;!;*;!:5;¨;&;!:11;#;!:10;@:3;!;¨;!;¨;!;¨;¨;!;!;¨:3;!;¨;@;@;!;+8;†;e;!;+8:3;!;+8;è;è;!;+8;e;E;!;+8;@;@;!;e;+8;†;!;+8;¨;†;!;E;+8;†;!;è;¨;È;!;+8;!;è;!;@;+8;+8;!;†;+8;†;!;E;è;¨;!;e;+8;¨;!;+8;¨;È;!;E;¨;È;!;e;¨;È;!;è;è;È;!;e;†;è;!;+8;+8;è;!;È;!;è;!;E;!;+8;!;¨;!;+8;!;+8;E;+8;!;È;E;!;!;e;e;E;!;E;¨;¨;!;!;È;¨;!;!;È;È;!;E;È;È;!;†;È;È;!;+8;è;È;!;+v:3;!;+v;@;@;!;+u;¨;‘;!;+v;+g;+g;!;+u;°;š;!;+g;+v;+v;!;@;+v;+v;!;+g;ð;è;!;+g;+8;+0;!;+u;+(;†;!;+u;¸;+(;!;+g;è;à;!;+g;ø;ð;!;+g;+0;+0;!;Ð;+(;];!;+g;°;š;!;+g;à;Ð;!;+g;+0;ø;!;+g;+u;+8;!;+v;+u;+u;!;+v;+v;+g;!;+v;+v;@;!;Ð;š;U;!;¸;š;];!;È;M;‘;!;+g;Ð;À;!;+g;+u;+u;!;+g;¨;‘;!;+g;+g;+u;!;ð;+g;+v;!;+g;+v;@;!;+u;¨;†;!;À;M;‘;!;À;U;‘;!;+u;°;‘;!;+v;¸;+(;!;+v;Ø;È;!;+g;à;Ø;!;+v;à;Ø;!;+v;+8;+8;!;@;+v;+g;!;@;+v;@;!;Ø;‘;M;!;Ð;š;];!;Ð;+(;e;!;š;M;};!;‘;u;};!;š;†;};!;¨;M;†;!;È;M;†;!;È;U;‘;!;+v;¨;‘;!;+v;°;‘;!;+v;°;š;!;+g;¸;+(;!;+g;À;¨;!;+u;à;Ð;!;+v;è;Ø;!;+g;ð;à;!;+g;+g;+v;!;ø;+v;+v;!;Ð;š;M;!;°;+(;e;!;¨;+(;m;!;‘;e;u;!;È;" &_
  579. "m;u;!;‘;e;};!;È;e;};!;Ð;m;};!;†;};};!;+(;†;};!;°;M;†;!;š;¸;‘;!;‘;À;+(;!;+u;À;°;!;+g;È;°;!;+u;È;¸;!;‘;Ð;¸;!;+v;Ð;¸;!;+u;Ð;À;!;‘;Ø;À;!;‘;Ø;È;!;†;à;È;!;+(;Ø;Ð;!;+g;Ø;Ð;!;è;à;Ð;!;à;ø;ð;!;¸;+0;+0;!;+v;+8;+0;!;À;+8;+8;!;+v;+u;+8;!;ø;+g;+v;!;+8;+v;@;!;+u;+v;@;!;È;‘;U;!;°;š;U;!;À;š;U;!;À;‘;];!;À;š;];!;¸;+(;];!;Ø;+(;];!;+(;};e;!;°;};e;!;Ð;};e;!;Ð;†;e;!;°;š;e;!;Ð;š;e;!;¨;+(;e;!;¸;+(;e;!;È;m;m;!;Ð;m;m;!;Ð;u;m;!;+(;‘;m;!;È;‘;m;!;°;¨;m;!;+(;U;u;!;†;];u;!;+(;e;u;!;};m;u;!;Ð;u;u;!;+(;};u;!;Ð;};u;!;¨;‘;u;!;†;M;};!;‘;U;};!;†;];};!;¨;];};!;†;e;};!;};m;};!;†;u;};!;‘;};};!;š;};};!;¨;‘;};!;è;+(;};!;+0;+(;};!;+u;+(;};!;†;°;};!;°;E;†;!;+(;U;†;!;+(;e;†;!;†;m;†;!;‘;m;†;!;};u;†;!;+(;u;†;!;‘;†;†;!;¨;+(;†;!;À;+(;†;!;+8;+(;†;!;+g;+(;†;!;à;¨;†;!;ð;¨;†;!;‘;°;†;!;š;°;†;!;‘;¸;†;!;+(;¸;†;!;¸;E;‘;!;°;U;‘;!;Ð;U;‘;!;š;m;‘;!;e;};‘;!;‘;†;‘;!;‘;š;‘;!;¸;š;‘;!;Ð;+(;‘;!;†;¨;‘;!;+(;¨;‘;!;Ð;¨;‘;!;+8;¨;‘;!;ð;°;‘;!;ø;°;‘;!;+0;°;‘;!;‘;š;š;!;š;+(;š;!;+8;°;š;!;m;¸;š;!;+(:3;!;¸;°;+(;!;Ø;¸;+(;!;è;¸;+(;!;ø;¸;+(;!;+0;¸;+(;!;+8;¸;+(;!;†;À;" &_
  580. "+(;!;‘;È;+(;!;Ð;¸;¨;!;†;À;¨;!;‘;À;¨;!;ø;À;¨;!;+v;À;¨;!;°;À;°;!;¸;À;°;!;+8;À;°;!;‘;È;°;!;ð;È;°;!;+v;È;°;!;†;À;¸;!;+v;È;¸;!;ø;Ð;¸;!;‘;Ø;¸;!;À;È;À;!;+v;Ð;À;!;+v;Ø;À;!;@;Ø;À;!;°;Ð;È;!;°;Ð;Ð;!;è;Ð;Ð;!;À;Ø;Ð;!;Ø;Ø;Ð;!;+u;Ø;Ð;!;‘;à;Ð;!;†;à;Ø;!;à;à;Ø;!;+8;è;à;!;š;ð;à;!;+v;ð;à;!;@;ð;à;!;};è;è;!;+(;è;è;!:67;K;L:3;K;K;L;K;L:4;P;s;Q;P;K:3;L:4;K:4;!:5;N;p;¢;d;S;S;V;K;R;d;[;d;r;h;©;K:3;e;d;[;d;¢;g;K:3;#;!:4;S;O;M;Õ;p;[;M;g;U;T;M;â;+z;+4;+7;h;N;i;\;T;M:3;S;K:3;N;!:4;e;¢;O;d;X;¢;O;];V;U;M;o;¡;®;b;¥;Q;P;];d;O;U;V;e;K:4;!:4;N;R;M;p;N;œ;M;S;S;U;M;q;¥;­;‹;§;Q;P;N;V;M;O;\;K:5;!:4;L;S;T;V;L;š;M;\;N;U;M;p;h;+!;+!;h;N;N;L;R;M;O;S;K;N;K:3;!:4;L;X;T;V;K;U;M;W;N;U;j;+n;+(;ž;+t;+c;i;N;L;R;M;O;S;K:5;!:4;L;S;T;R;N;O;M;V;N;O;f;+b;è;u;u;—;ˆ;N;L;R;M;O;S;K:5;!:4;L;X;T;R;];O;M;[;N;O;;+e;º;Y;²;Š;§;Q;i;R;M;O;S;K:5;!:4;L;S;T;R;S;M;M;d;g;O;f;+w;å;b;b;Ö;§;Q;P;R;M;O;S;K;_;K:3;!:4;L;X;T;R;W;M;M;œ;N;‚;j;p;h;¥;¥;h;K;N;`;R;M;O;S;K:5;!:4;L;X;T;V;R;M;Z;+1;+v;+3;f;„;#;Q;t;Q;‡;s;ˆ;+i;õ;M;\;L;N;K:3;!:4;L;W;T;+x;[;M;n;Ò;³;”;ä;+g;K;N:3" &_
  581. ";Q;h;+(;Œ;ð;;„;`;‡;K:3;!:4;L;p;T;+d;+#;f;ö;‘;Å;–;Ä;þ;ˆ;«;«;h;¥;+7;¯;|;Û;ø;›;K;Q;K:3;!:4;L;…;Ô;+s;d;f;ö;‘;½;l;k;Ù;™;+$;+$;™;‹;a;¸;c;Í;÷;ƒ;g;§;P;K;K;!:4;L;+~;Æ;í;ÿ;€;Z;à;Ï;c;k;’;‰;¬;a;a;v;Y;µ;Ë;ô;Z;n;§;ü;¥;Q;‡;!:4;#;¤;É;“;”;û;U;Z;+l;Ú;é;Ž;Y;w;w;Y;a;°;ò;ñ;n;‚;+1;+7;u;™;h;s;!:4;#;¤;x;“;Ì;z;o;O;q;+0;y;z;Š;b;b;¹;—;@;¤;~;U;o;Ð;´;a;æ;h;s;!:4;L;S;y;Ž;};Ê;+j;n;+#;ƒ;f;£;§;@;@;§;h;L;…;T;+u;¡;x;Ç;®;@;`;N;!:4;i;¦;ã;y;};|;ï;ß;Ÿ;ƒ;á;q;#;Q;t;Q;N;P;o;f;ó;ï;c;»;+5;ˆ;N;P;!:4;L;\;;þ;Ø;c;¶;Œ;ï;+1;~;q;K;N:3;s;#;+y;”;Ã;v;|;ì;§;Q;‡;K;!:4;L;X;M;Z;z;{;¸;’;{;Î;È;£;-;i;i;ª;h;@;Ü;×;’;Y;Á;ý;K;‡;K;K;!:4;L;X;M;Z;O;Þ;b;Ž;k;c;{;î;+a;+%;+%;ž;ç;·;|;k;¼;À;ú;Z;^;K:3;!:4;K;W;O;O;Z;+r;+m;Ý;c;l;k;Ž;‰;¬;¬;a;a;¶;l;c;Ñ;+m;[;f;W;K:3;!:4;];[;O;O;M;›;L;+h;Â;–;c;’;¿;Y;w;Y;v;’;–;Í;+s;r;¢;M;d;e;K;N;!:4;X;O;M;M;T;œ;L;+=;Ó;•;Œ;x;´;®;b;±;¾;Â;•;ä;n;\;M:3;S;K;N;!:4;^;d;œ;d;š;W;K;S;+o;Ÿ;+p;+6;@:3;¥;¤;+9;+f;›;„;g;d;œ;œ;];K;N;!:4;P;K:4;`;N;K;P;P;t;Q;#:3;t;Q;Q;P;P;K:8;!:66;@:8;è;!;!;);è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;" &_
  582. "!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;è;!;!;%;@;@;@;@;@;@;@;@"
  583.  
  584.  
  585. asdf=ConvertTextToBinary (return)
  586.  
  587. FSO.CreateTextFile (Path).Write asdf
  588.  
  589. End Sub
  590.  
  591.  
  592.  
  593. '##########################################
  594. '#                                        #
  595. '#               Function                 #
  596. '#                                        #
  597. '#         ConvertByte Function           #
  598. '#                                        #
  599. '##########################################
  600. '#                                        #
  601. '# This function is used by ConvertTextto #
  602. '# Binary function and the convertbinary  #
  603. '# toText function. Opt is the string to  #
  604. '# be converted opt2 is conversion method #
  605. '# Opt2 is true when converting binary to #
  606. '# text, opt2 is false when converting    #
  607. '# text to binary.                        #
  608. '#                                        #
  609. '##########################################
  610.  
  611. Function ConvertByte (stringToBeConverted,Method)
  612.    
  613.     Dim ArrChrList,iconvertine,Opt,Opt2
  614.    
  615.     Opt=stringToBeConverted
  616.     Opt2=Method
  617.    
  618.    
  619.    
  620.     ArrChrList=Array ("!","#","$","%","&","'","(",")","*",",","-",".","/",_
  621.     "0","1","2","3","4","5","6","7","8","9","<","=",">","?","+@","A","B","C",_
  622.     "D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U",_
  623.     "V","W","X","Y","Z","[","\","]","^","_","`","a","b","c","d","e","f","g",_
  624.     "h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y",_
  625.     "z","{","|","}","~","","€","‚","ƒ","„","…","†","‡","ˆ","‰","Š","‹","Œ",_
  626.     "Ž","‘","’","“","”","•","–","—","™","š","›","œ","ž","Ÿ","+#","+$","+%",_
  627.     "+(","¡","¢","£","¤","¥","¦","§","¨","©","ª","«","¬","­","®","¯","°","±",_
  628.     "²","³","´","µ","¶","·","¸","¹","º","»","¼","½","¾","¿","À","Á","Â","Ã",_
  629.     "Ä","Å","Æ","Ç","È","É","Ê","Ë","Ì","Í","Î","Ï","Ð","Ñ","Ò","Ó","Ô","Õ",_
  630.     "Ö","×","Ø","Ù","Ú","Û","Ü","Ý","Þ","ß","à","á","â","ã","ä","å","æ","ç",_
  631.     "è","é","ê","ë","ì","í","î","ï","ð","ñ","ò","ó","ô","õ","ö","÷","ø","ù",_
  632.     "ú","û","ü","ý","þ","ÿ","+0","+1","+2","+3","+4","+5","+6","+7","+8","+9",_
  633.     "+q","+w","+e","+r","+t","+y","+u","+i","+o","+p","+a","+s","+d","+f","+g",_
  634.     "+h","+j","+k","+l","+z","+x","+c","+v","+b","+n","+m","+~","+=","+!","@")
  635.    
  636.    
  637.    
  638.    
  639.     If opt2 Then
  640.         'Convert asc (Binary) to Text
  641.        
  642.         ConvertByte=ArrChrList (opt)
  643.        
  644.        
  645.        
  646.     Else
  647.         'Convert Text to asc(Binary)
  648.        
  649.         For iconvertine=0 To 255
  650.            
  651.            
  652.             If opt=ArrChrList (iconvertine) Then
  653.                 ConvertByte=iconvertine
  654.                 Exit Function
  655.             End If
  656.            
  657.            
  658.         Next
  659.        
  660.        
  661.        
  662.        
  663.     End If
  664.    
  665.    
  666. End Function
  667.  
  668.  
  669.  
  670.  
  671.  
  672.  
  673.  
  674.  
  675.  
  676.  
  677.  
  678.  
  679.  
  680.  
  681.  
  682.  
  683.  
  684.  
  685.  
  686.  
  687.  
  688.  
  689.  
  690.  
  691.  
  692.  
  693.  
  694.  
  695.  
  696.  
  697.  
  698.  
  699.  
  700.  
  701.  
  702.  
  703.  
  704.  
  705.  
  706. '##########################################
  707. '#                                        #
  708. '#               Function                 #
  709. '#                                        #
  710. '#     ConvertTextToBinary Function       #
  711. '#                                        #
  712. '##########################################
  713. '#                                        #
  714. '# This function will convert text data   #
  715. '# to binary data. use with LoadImage     #
  716. '# function to (re)create the picture.    #
  717. '#                                        #
  718. '##########################################
  719.  
  720. Function ConvertTextToBinary (sText)
  721.    
  722.    
  723.     Dim FSO
  724.     Set FSO = WScript.CreateObject("Scripting.Filesystemobject")
  725.    
  726.     Dim I, ID, FileObject, Reading, arrBytes, arrText, Return
  727.     Dim XIDI, BenjaminFranklin, StrText
  728.     Dim Text, LastRead, SameReads, SplitText, IDI
  729.     '   Dim FilePath
  730.    
  731.     StrText=sText
  732.    
  733.    
  734.    
  735.     arrText=Split (Replace (Replace (StrText,vbLf,""),vbCr,""),";")
  736.    
  737.     arrBytes=Array
  738.    
  739.     ID=0
  740.    
  741.    
  742.    
  743.    
  744.    
  745.    
  746.     IDI=0
  747.     I=0
  748.     ID=0
  749.    
  750.     Do
  751.        
  752.        
  753.        
  754.        
  755.        
  756.        
  757.         Text=arrText(I)
  758.        
  759.         Text=Replace (Text,";","")
  760.        
  761.         'MsgBox "Text : " & Text
  762.        
  763.        
  764.        
  765.         'found possible repeating bytes
  766.        
  767.         If Replace (Text,":","")<>Text Then
  768.             'found repeating bytes
  769.            
  770.             SplitText=Split (Text,":")
  771.            
  772.             LastRead=SplitText (0)
  773.             SameReads=SplitText (1)
  774.            
  775.             LastRead=ConvertByte (LastRead,False)
  776.            
  777.            
  778.             IDI=I
  779.            
  780.             XIDI=I
  781.            
  782.            
  783.             'write each byte seperate
  784.            
  785.            
  786.             BenjaminFranklin=Chr (LastRead)
  787.             For IDI=0 To SameReads-1
  788.                
  789.                 '                   'MsgBox "idi " & IDI & " out of " & samereads
  790.                
  791.                
  792.                
  793.                
  794.                 ReDim Preserve arrBytes(ID)
  795.                
  796.                 arrBytes(ID)=BenjaminFranklin
  797.                
  798.                 ID=ID+1
  799.                
  800.                
  801.                
  802.             Next
  803.            
  804.            
  805.            
  806.            
  807.            
  808.            
  809.            
  810.         Else
  811.            
  812.             'Did not find a repeating byte
  813.            
  814.            
  815.            
  816.             Text=ConvertByte (Text,False)
  817.            
  818.            
  819.            
  820.             ReDim Preserve arrBytes(ID)
  821.            
  822.             arrBytes(ID)=Chr(Text)
  823.             ID=ID+1
  824.            
  825.            
  826.            
  827.             'MsgBox "is " & I & " > " & UBound (arrText) & "         " & ( I > UBound (arrText))
  828.            
  829.            
  830.             If I > UBound (arrText) Then
  831.                
  832.                 'MsgBox " final exit do"
  833.                 Exit Do
  834.                
  835.             End If
  836.            
  837.            
  838.         End If
  839.        
  840.        
  841.         I=I+1
  842.        
  843.         If I>UBound (arrText) Then
  844.             'MsgBox "I think an error shows here"
  845.            
  846.             Exit Do
  847.         End If
  848.        
  849.        
  850.        
  851.        
  852.     Loop
  853.    
  854.    
  855.     Return=Join (arrBytes,"")
  856.    
  857.    
  858.    
  859.    
  860.     ConvertTextToBinary=Return
  861.    
  862.    
  863. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!