Izgubio sam hrpetinu linkova s kôdovima, pa bi molio ako netko ima neku listu svih kôdova za VB, s objašnjenjima i sl. da posta.
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
Prvi i zadnja dva sam već probao, i sada sam probao i ovaj drugi, ali se ja tamo baš i ne snalazim.
Može netko postati kôdove?
A ja ću još prostudirati ove linkove.
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
hmm .. da možda ne misliš na naredbe ?Izvorno postao C
pogledaj "keywords" u helpu VB-a, tamo je popis
The candle flame gutters. Its little pool of light trembles. Darkness gathers. The demons begin to stir.
<3 <3 <3 <3 <3 <3 <3
ŠIRI SA MNOM LJUBAV Cherry!
Ne, tamo nema za VB.
Imao sam hrpetinu linkova koje sam ostavio na WoF forumu, a on je suspendiran, tj. prebacio se na novi forum.
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
Koji VB te interesuje? I ima li nešto konkretno da te interesuje? Jer imam dosta iskustva s (Visual) Basicom, pa bih ti možda mogao pomoći oko konkretnih problema.
Koji me VB interesira?
-Pa, to je jedan jezik, ili nije? Ne znam, početnik sam u programiranjima. Naučio sam cijeli batch (čak i ne postojeće kôdove; prvenstveno jer je najlakši), pa sada ciljam na sljedeći jezik, i to VB koji me još interesirao od malih nogu i uvijek sam "Visual Basic" zamjenjivao s "Virtual Basic."
Zanima me VB općenito, kao i batch, pa bi Expurgation pisao u VBS-u, kasnije možda nešto više s VBS-om. Skužio sam par kôdova iz infekcija (većinom worm-ovi) VBS-a, ali s time ne mogu ništa dobro napraviti, jedino ovo za silent mode i prozorčići s porukama.
Edit: Trebalo bi mi nešto kao što je u batchu npr. u help-u, lista kodova, svaki čemu služi i primjer korištenja tog kôda. Ili kao u Dark Basic-u lista, nešto u tom stillu, ako je moguće?
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
Ne, postoji u različitim verzijama.Izvorno postao C
VB 6.0 je originalni VB, i još ga mnogo ljudi koristi.
VB .NET (2003,2005,200 je VB povezan s .NET Frameworkom i izmijenjenom sintaksom.
Ima u helpu sigurno popis naredbi ... koju verziju koristiš ?
The candle flame gutters. Its little pool of light trembles. Darkness gathers. The demons begin to stir.
<3 <3 <3 <3 <3 <3 <3
ŠIRI SA MNOM LJUBAV Cherry!
Imam dva Winsa (različite verzije) i ni pod jednim nema komandi od VB-a.
Uglavnom, ne zanimaju me oba dva, već jedan, ali ne znam koji je to točno. Imam par kôdova od toga, pa mi reci(te) koji je to VB?
Ovo mu je glavno, koliko sam skužio:
Code:cscript //H:CscriptOvakvi su mu kôdovi:Code:wscript //H:CScript
Code:Set WshNetwork = CreateObject("WScript.Network") WScript.Echo WshNetwork.ComputerNameCode:Set objWSHShell = CreateObject("WScript.Shell") objWSHShell.Run("""Hot Fixes Installed.vbs""")Code:Dim WshShell, oExec Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("calc")Code:Set WshShell = WScript.CreateObject("WScript.Shell") Set WshSysEnv = WshShell.Environment("SYSTEM") WScript.Echo WshSysEnv("NUMBER_OF_PROCESSORS")Code:strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colSettings = objWMIService.ExecQuery _ ("Select * from Win32_Processor",,48) Dim procdic, arrayitems, i Set procdic = CreateObject("Scripting.Dictionary") For Each objProcessor in colSettings procdic.Add objProcessor.ProcessorID,objProcessor.Description Next arrayItems = procdic.Items for i = 0 to procdic.Count -1 report = report & arrayItems(i)& " Processor" & vbCrLf next WScript.Echo reportCode:Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") for each OpSys in OpSysSet OpSys.Reboot() nextCode:Const Force_Reboot = 6 Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") For Each OpSys In OpSysSet OpSys.Win32Shutdown(Force_Reboot) NextCode:Const Force_Shutdown = 5 Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") For Each OpSys In OpSysSet OpSys.Win32Shutdown(Force_Shutdown) NextCode:ContinuationProgName = ScriptsFolder & "\CLNodeAllSDR.vbs" Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce\", ContinuationProgName, " REG _SZ"Code:Set WSHShell = WScript.CreateObject("WScript.Shell") Set oRegistry = GetObject("winmgmts:root/default:StdRegProv") sKey = "SYSTEM\ControlSet001\Services" rc = oRegistry.EnumKey(HKLM, sKey, arSubKeys) For Each sKey In arSubKeys All registry keys for schemas contain the string "stccb" If InStr(1, sKey, "stccb") then strRegKey="HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\" & sKey & "\ImagePath" schemaKey=WSHShell.RegRead(strRegKey) Find the positions of the NT Service name, Logical Name and Registry Host strPosA=InStr(1, sKey, "(") strPosB=InStrRev(sKey, ")") -1 strPosC=InStr(1, schemaKey, "-ln") +3 strPosD=InStrRev(schemaKey, "-rh") -2 strPosE=InStr(1, schemaKey, "-rh") +3 strPosF=InStrRev(schemaKey, "-rs") -2 Now trim (Left) the full path to the point of the NT Service name and Registry Host strTrimSchemaLeft=Left(sKey, strPosB) strTrimLeft=Left(schemaKey, strPosD) strTrimRHLeft=Left(schemaKey, strPosF) Find the difference between the two positions and trim Right strSchemaDif=(strPosB - strPosA strDif=(strPosD - strPosC) strRHDif=(strPosF - strPosE) strNTService=Right(strTrimSchemaLeft, strSchemaDif) strControlBroker=Right(strTrimLeft, strDif) strRegistryHost=Right(strTrimRHLeft, strRHDif) Bring the resource online bringOnline sKey,strControlBroker,strNTService,strRegistryHost Else End If NextCode:Dim strService Set cbService = GetObject("WinMgmts:{impersonationLevel=impersonate}!//./root/cimv2: Win32_Service.Name='Apache2') serviceState = cbService.State if serviceState = "Stopped" or serviceState = "Paused" then ' Start the Control Broker and wait until finished before starting next CB cbService.StartService,,True Wscript.Sleep 500 Else WScript.Echo "Service " & serviceState end ifKoji je to VB?Code:Set oCluster = CreateObject( "MSCluster.Cluster" ) ' Open the cluster. Empty string means open the local cluster. oCluster.Open( "" ) Set oResource = oCluster.Resources.CreateItem( "eGate Registry", "Generic Service", 0, 0 ) resourceSt = oResource.State If resourceSt = 3 then ' Offline oResource.Online 10 Elseif resourceSt = 130 then ' Offline Pending WScript.Echo "eGate Registry : " & resourceSt & " Offline Pending" End If
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
VB 6.0
nisi morao sve to postati
The candle flame gutters. Its little pool of light trembles. Darkness gathers. The demons begin to stir.
<3 <3 <3 <3 <3 <3 <3
ŠIRI SA MNOM LJUBAV Cherry!
OK, daj mi samo pojasni, jeli to 6.0 verzija ili?
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
da, to je verzija 6.0 razvojnog sučelja nazvanog "Visual Basic"
sam kod koji si dao je možda pisan i u starijoj verziji ... ako te zanima više o verzijama pogledaj ovdje
The candle flame gutters. Its little pool of light trembles. Darkness gathers. The demons begin to stir.
<3 <3 <3 <3 <3 <3 <3
ŠIRI SA MNOM LJUBAV Cherry!
Aha, a dali kôdovi iz starijih VB-a rade u novim verzijama?
I kakva su npr. poboljšanja u novijim verzijama? Više komandi, ili iste komande, samo skraćene, ili?
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
stari kod više-manje ne radi u novoj verziji
hmm .. sve je promijenjeno, VB. NET je gotovo novi jezik (bolji), promijenjena je sintaksa, na bolje (nevidim razlog da koristiš 6.0 ako možeš koristiti .NET)
The candle flame gutters. Its little pool of light trembles. Darkness gathers. The demons begin to stir.
<3 <3 <3 <3 <3 <3 <3
ŠIRI SA MNOM LJUBAV Cherry!
Pa, Expurgation-a bi prepisao u VB za početak.
A i .NET baš i ne kužim, djeluje mi VB6 da je lakši.
P.S. VBS ekstenziie su pisane u VB# ili u VB.NET-u?
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
lol .. pola minute sam gledao u ovo "VB#" i razmišljam o ćemu pričaš (jer postoji C#, J#)
mislim da je .NET jednostavniji i intuitivniji, a i kao jezik je moćniji
vbs je VB 6.0, ali Windows Script Host koji izvršava skripte podržava i JavaScript, dakle ne moraš pisati u VB-u
The candle flame gutters. Its little pool of light trembles. Darkness gathers. The demons begin to stir.
<3 <3 <3 <3 <3 <3 <3
ŠIRI SA MNOM LJUBAV Cherry!
Ma, VB# sam mislio VB1, VB2, VB3, VB4, VB5 i VB6.
Ali, mene zanima VBS i želio bih ga učiti (i naučiti).
Ako je VBS VB6, za šta je WSF?
I, da pitam, ima li koji način upisa batcha u VBS?
Nešto poput onoga što su mi rekli DragonSoul i Plexihack, za DEV C++, samo mi tamo ne podržava sve znakove, a VBS bi podržavao sve znakove kao i BAT.
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
WSF je extenzija datoteke s skriptom pisanom za WSH (Windows Script Host)
više o tome :
http://en.wikipedia.org/wiki/Windows_Script_File
za ova batch nisam siguran, pogledat ću pa javim
The candle flame gutters. Its little pool of light trembles. Darkness gathers. The demons begin to stir.
<3 <3 <3 <3 <3 <3 <3
ŠIRI SA MNOM LJUBAV Cherry!
Super, hvala.Izvorno postao Luka
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
kakav batch bi htio pretovoriti .. možeš dati neki primjer ?
The candle flame gutters. Its little pool of light trembles. Darkness gathers. The demons begin to stir.
<3 <3 <3 <3 <3 <3 <3
ŠIRI SA MNOM LJUBAV Cherry!
Pa, bilo kakav, sve vrste. Ovaj od Expurgation-a, ali ima ne dozvoljene znakove koje recimo C++ ne prihvaća, a pomoću tih znakova traži smeće. I u batchu su korišteni "skriveni" kôdovi.
Npr. kôd:
Mislim, bilo kakav batch da pretvorim u VBS. Ili da ga prepišem u VBS, a da ga VBS detektira i da zna da je to BAT, kao što mi je bio pokušaj u C++|-u.Code:@echo off echo Start >>Info.zap date /t >Date_Time.log time /t >>Date_Time.log @pause >nul echo I recimo ovakvi kôdovi: set /p Username=Please Enter Your Username: @cls echo Pokrenuo: %Username% >>Info.zap @exit REM Ovo sam sada bez-veze pisao kôd, sve i svašta.
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
hmm .. nisam siguran može li se sve to .. bolje napravi pravi exe program pomoću punkrvnog vb-a
The candle flame gutters. Its little pool of light trembles. Darkness gathers. The demons begin to stir.
<3 <3 <3 <3 <3 <3 <3
ŠIRI SA MNOM LJUBAV Cherry!
....i vraćam se opet na početak onda, trebala bi mi lista kodova za VB.
Edit: Koji program da koristim za punokrvni VB, i -> EXE?
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
Visual Basic 2008 Express Edition - besplatan download s MS-ovih stranica
i dalje mi nije jasno o kojem popisu kodova govoriš, misliš popis naredbi ?
The candle flame gutters. Its little pool of light trembles. Darkness gathers. The demons begin to stir.
<3 <3 <3 <3 <3 <3 <3
ŠIRI SA MNOM LJUBAV Cherry!
Da, to.
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
http://msdn2.microsoft.com/en-us/library/ksh7h19t(VS.71).aspx
Možda misliš na to?
DragonSoul je upravo dao, inače taj popis se može dobiti iz iz Helpa VB-a
The candle flame gutters. Its little pool of light trembles. Darkness gathers. The demons begin to stir.
<3 <3 <3 <3 <3 <3 <3
ŠIRI SA MNOM LJUBAV Cherry!
@DragonSoul - E, to sam tražio! Hvala ti.
Kako?Izvorno postao Luka
Pokušao sam s upisom kroz CMD mode, ali nema, izbaci samo cca 5 naredbi.
Ili misliš u programima za VB? Tamo sigurno ima.
Edit: @DragonSoul - Ovdje nema svih komandi.
Recimo, "MsgBox" komande nema.
Edit 2: E, evo, našao sam najbolje.
Ovo je link:
http://book.chinaz.com/VBScript/VbScrip ... TOCAlt.htm
Ali Google kaže ovako:
http://www.google.hr/interstitial?url=h ... vbstoc.htm
Pa ja onda idem ovako:
http://anonymouse.org/cgi-bin/anon-www. ... TOCAlt.htm
Sve jedna te ista web stranica.
Podjeljeno je u kategorije, i svaka ima opcije i pod svakom opcijom šta je šta, kako šta treba, itd., nešto slično batchu u Windows-ovom help-u.
Hvala vam ljudovi, sada ću se učiti VBS-u, neka ova teme još bude otvorena, ako budem nešto zatrebao, ili ako bude netko drugi nešto zatrebao.
Edit 3: Evo za one koji isto hoće naučiti VB, sve komande u jednom help-u.
Download:
http://www.dayanahost.com/helpfiles/vbscript5.zipS(499 KB)
U chm formatu je. Za one koji ne znaju, help.
Usput, da pitam, ne kužim u MsgBox komandi kako napisati više redova. Trebao bi koristiti Chr komandu, samo kako i gdje? Kako god pokušam, ne valja. Može neki primjer?
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]
možeš, ali moraš ući u VB, pa odabrati Help
za MsgBox :
Code:<job id="Abc"> <script language="VBScript"> msgbox("1. red" + vbcrlf + "2.red") </script> </job>
The candle flame gutters. Its little pool of light trembles. Darkness gathers. The demons begin to stir.
<3 <3 <3 <3 <3 <3 <3
ŠIRI SA MNOM LJUBAV Cherry!
Hvala, ne radi, trebalo mi je samo ovo:
I ovo radi.Code:msgbox("1. red" + vbcrlf + "2.red")
Edit: E, ali čekaj, VBCrlf komande nema na popisu, ima Chr za te stvari, ali mi ne radi (prije će biti da ne znam kako je korisititi).
A, mogu li kako postaviti kvačice (upaljene/ugašene) u takav jedan prozor, s time da njihov odabit utječe na sljedeći proces?
I, gdje je tu komanda za brisanje? Ima komanda erase, ali je ne kužim.
[sub:16lsqdy7]Χάος
[center:16lsqdy7]Zvuk leptirovih krila na jednoj strani svijeta izaziva efekt divljenja, a na drugoj prouzrokuje domino efekt uništenja.[/center:16lsqdy7]
[center:16lsqdy7][ Complex Server ][/center:16lsqdy7][/sub:16lsqdy7]