Can any one make this for us? Or how can i do it self?
Greeting!

Code: Select all
dim as string g
g += "Const TriStateTrue = -1 ' forUnicode support"+chr(10)''-1
g += "URL = InputBox(""Enter (or paste) the URL to extract the Code ""&vbcr&vbcr&_"+chr(10)
g += """Exemple """"https://www.freebasic.net/wiki/CatPgFullIndex """""",""Extraction of Source text and html "",""https://www.freebasic.net/wiki/CatPgFullIndex"")"+chr(10)
g += "If URL = """" Then WScript.Quit"+chr(10)
g += "Titre = ""Extraction du Code Source de "" & URL"+chr(10)
g += "Set ie = CreateObject(""InternetExplorer.Application"")"+chr(10)
g += "Set objFSO = CreateObject(""Scripting.FileSystemObject"")"+chr(10)
g += "ie.Navigate(URL)"+chr(10)
g += "ie.Visible=false"+chr(10)
g += "DO WHILE ie.busy"+chr(10)
g += "LOOP"+chr(10)
g += "DataHTML = ie.document.documentElement.innerHTML"+chr(10)
g += "DataTxt = ie.document.documentElement.innerText"+chr(10)
g += "strFileHTML = ""CodeSourceHTML.txt"""+chr(10)
g += "strFileTxt = ""CodeSourceTxt.txt"""+chr(10)
g += "Set objHTMLFile = objFSO.OpenTextFile(strFileHTML,2,True, TriStateTrue)"+chr(10)
g += "objHTMLFile.WriteLine(DataHTML)"+chr(10)
g += "objHTMLFile.Close"+chr(10)
g += "Set objTxtFile = objFSO.OpenTextFile(strFileTxt,2,True, TriStateTrue)"+chr(10)
g += "objTxtFile.WriteLine(DataTxt)"+chr(10)
g += "objTxtFile.Close"+chr(10)
g += "ie.Quit"+chr(10)
g += "Set ie=Nothing"+chr(10)
g += " Ouvrir(strFileHTML)"+chr(10)
g += " Ouvrir(strFileTxt)"+chr(10)
g += "wscript.Quit"+chr(10)
g += "Function Ouvrir(File)"+chr(10)
g += " Set ws=CreateObject(""wscript.shell"")"+chr(10)
g += " ws.run ""Notepad.exe ""& File,1,False"+chr(10)
g += "end Function"+chr(10)
function savefile(filename As String,p As String) as string
Dim As long n=freefile
If Open (filename For Binary Access Write As #n)=0 Then
Put #n,,p
Close
Else
Print "Unable to save " + filename:sleep:end
End If
return filename
End function
Sub runscript(filename As String)
Shell "cscript.exe /Nologo "+ filename
End Sub
savefile("script.vbs",g)
runscript("script.vbs")
kill "script.vbs"
sleep
click on releases and then click on assets you will then see your download optionshhr wrote: ↑Mar 18, 2023 20:28 I would like to try this, but don't know how to do it: https://github.com/albeva/fbide
Code: Select all
Security vendor Result Update
VBA32 malicious 20230317
SymantecMobileInsight type-unsupported 20230119
Trustlook type-unsupported 20230319
Avast-Mobile type-unsupported 20230319
BitDefenderFalx type-unsupported 20230203
Ikarus type-unsupported 20230319
Bkav undetected 20230319
Lionic undetected 20230319
Elastic undetected 20230302
MicroWorld-eScan undetected 20230319
CMC undetected 20230312
CAT-QuickHeal undetected 20230319
McAfee undetected 20230319
Cylance undetected 20230316
Zillya undetected 20230317
Sangfor undetected 20230317
K7AntiVirus undetected 20230319
Alibaba undetected 20190527
K7GW undetected 20230319
CrowdStrike undetected 20220812
BitDefenderTheta undetected 20230313
VirIT undetected 20230317
Cyren undetected 20230319
Symantec undetected 20230318
tehtris undetected 20230319
ESET-NOD32 undetected 20230319
APEX undetected 20230319
Avast undetected 20230319
ClamAV undetected 20230319
Kaspersky undetected 20230319
BitDefender undetected 20230319
NANO-Antivirus undetected 20230319
ViRobot undetected 20230319
Rising undetected 20230319
TACHYON undetected 20230319
Emsisoft undetected 20230319
Baidu undetected 20190318
F-Secure undetected 20230319
DrWeb undetected 20230319
VIPRE undetected 20230319
TrendMicro undetected 20230319
McAfee-GW-Edition undetected 20230319
Trapmine undetected 20230103
FireEye undetected 20230319
Sophos undetected 20230319
Paloalto undetected 20230319
Jiangmin undetected 20230318
Webroot undetected 20230319
Google undetected 20230319
Avira undetected 20230319
Antiy-AVL undetected 20230319
Microsoft undetected 20230319
Gridinsoft undetected 20230319
Xcitium undetected 20230319
Arcabit undetected 20230319
SUPERAntiSpyware undetected 20230319
ZoneAlarm undetected 20230319
GData undetected 20230319
Cynet undetected 20230319
AhnLab-V3 undetected 20230319
Acronis undetected 20230219
ALYac undetected 20230319
MAX undetected 20230319
Malwarebytes undetected 20230319
Zoner undetected 20230318
TrendMicro-HouseCall undetected 20230319
Tencent undetected 20230319
Yandex undetected 20230318
SentinelOne undetected 20230216
MaxSecure undetected 20230315
Fortinet undetected 20230319
AVG undetected 20230319
Panda undetected 20230319