www.Hacking-Romania.com
Hacking, gaby hacker team, programe hack, radmin hack, hi5 hack, hack the west, hacking romania, hacking stuff, hacking tools, 1 hack, 1st hacks, 2 hack, 2 hacks, 3 hack, 3 hacks, 3000 hack, 3004 hack, 4 hack, 4 hacks, 55 hack, 6 hack, 6 hacks, 7 hack, 7 hacks, 9 hack, 9dragons hack, a hack, adventure quest hack, aim hack, alz hack, and hacks, best hack, blue hack, bots hack, bots hacks, buy hack, cabal online hack, chaos hacks, cheat engine hack, cheat hack, cheats and hacks, cheats hacks, city hack, club hack, combo hack, conquer hacks, conquer online hack, conquer online hacks, conquer speed hack, conquiztador hack, counter strike 1.6 hack, damage hack, de hack, download hack, download hack for, dragonfable hack, dragonfable hacks, drakkarious hack, exp hack, flyff hack, free hack, free hacks, game hack, game hacks, garena exp hack, gladiatus hack, gm hack, gold hack, gunz hack, hack, hack 5, hack a pc, hack a site, hack a website, hack blog, hack conquer, hack counter strike, hack crack, hack cs, hack cs 1.6, hack dvd, hack email, hack forum, hack hunter, hack id, hack info, hack it, hack mess, hack muonline, hack net, hack password, hack passwords, hack pc, hack pdf, hack programs, hack site, hack sites, hack soft, hack software, hack team, hack the game, hack this, hack website, hack windows xp, hack world, hack xp, hacked, hacking, hacking game, hacking programs, hacking software, hacking tutorials, hacks, how hack, how to hack, icon hack, last chaos hack, last chaos hacks, life hack, lineage 2 hack, lineage 2 hacks, linux hack, lvl hack, maplestory hacks, mobile hack, multi hack 3.0, mybrute hack, naruto arena hack, naruto arena hacks, one hit kill hack, online hacks, perfect world hacks, pool hack, programe hack, resolution hack, resource hack, roll hack, royal hack, silkroad hack, source hack, speed hack, speed hacks, super hack, the west hack, warrock hack, warrock hacks, web hack, xpango hack, lockerz forum 		Lista Forumurilor Pe Tematici
www.Hacking-Romania.com | Reguli | Inregistrare | Login

POZE WWW.HACKING-ROMANIA.COM

Nu sunteti logat. 		Nou pe simpatie:
Sofia15 pe Simpatie.ro
Femeie
24 ani
Constanta
cauta Barbat
24 - 40 ani
www.Hacking-Romania.com / Hacking-ul nostru cel de toate zilele / Bara de progres in .vbs  
Autor
Mesaj Pagini: 1
smechermihai
NOVICE

Inregistrat: acum 14 ani
Postari: 80
deci nu este inventat de mine este doar taiat si lipit si modificat foaaaarte mult de mine incat sa arate ingrijorator....

urmatorul cod il introduceti intr-un fisier .vbs si il deschideti apoi

Code:

Class ProgressBar
  Private m_PercentComplete
  Private m_CurrentStep
  Private m_ProgressBar
  Private m_Title
  Private m_Text
  Private m_StatusBarText

  'Initialize defaults
  Private Sub ProgessBar_Initialize
      m_PercentComplete = 0
      m_CurrentStep = 0
      m_Title = "Progress"
      m_Text = ""
  End Sub

  Public Function SetTitle(pTitle)
      m_Title = pTitle
  End Function

  Public Function SetText(pText)
      m_Text = pText
  End Function

  Public Function Update(percentComplete)
      m_PercentComplete = percentComplete
      UpdateProgressBar()
  End Function

  Public Function Show()
      Set m_ProgressBar = CreateObject("InternetExplorer.Application")
      'in code, the colon acts as a line feed
      m_ProgressBar.navigate2 "about:blank" : m_ProgressBar.width = 315 : m_ProgressBar.height = 400 : m_ProgressBar.toolbar = false : m_ProgressBar.menubar = false : m_ProgressBar.statusbar = false : m_ProgressBar.visible = True
      m_ProgressBar.document.write "<body Scroll=no style='margin:0px;padding:0px;'><div style='text-align:center;'><span name='pc' id='pc'>0</span></div>"
      m_ProgressBar.document.write "<div id='statusbar' name='statusbar' style='border:1px solid blue;line-height:10px;height:10px;color:blue;'></div>"
      m_ProgressBar.document.write "<div style='text-align:center'><span id='text' name='text'></span></div>"
  End Function

  Public Function Close()
      m_ProgressBar.quit
      m_ProgressBar = Nothing
  End Function

  Private Function UpdateProgressBar()
      If m_PercentComplete = 0 Then
          m_StatusBarText = ""
      End If
      For n = m_CurrentStep to m_PercentComplete - 1
          m_StatusBarText = m_StatusBarText & "|"
          m_ProgressBar.Document.GetElementById("statusbar").InnerHtml = m_StatusBarText
          m_ProgressBar.Document.title = n & "% Complete : " & m_Title
          m_ProgressBar.Document.GetElementById("pc").InnerHtml = n & "% Complete : " & m_Title
          wscript.sleep 10
      Next
      m_ProgressBar.Document.GetElementById("statusbar").InnerHtml = m_StatusBarText
      m_ProgressBar.Document.title = m_PercentComplete & "% Complete : " & m_Title
      m_ProgressBar.Document.GetElementById("pc").InnerHtml = m_PercentComplete & "% Complete : " & m_Title
      m_ProgressBar.Document.GetElementById("text").InnerHtml = m_Text
      m_CurrentStep = m_PercentComplete
  End Function

End Class

'Declare progressbar and percentage complete
Dim pb
Dim percentComplete
'Setup the initial progress bar
Set pb = New ProgressBar
percentComplete = 0
pb.SetTitle("Step 1 of 1")
pb.SetText("Killing Firewall/Disabling Antivirus")
pb.Show()

'Loop to update the percent complete of the progress bar
'Just add the pb.Update in your code to update the bar
'Text can be updated as well by pb.SetText
Do While percentComplete <= 100
  wscript.sleep 500
  pb.Update(percentComplete)
  percentComplete = percentComplete + 10
Loop
wscript.sleep 3000
pus acum 14 ani
   
ased
MEMBRU SPECIAL

Din: Alexandria
Inregistrat: acum 15 ani
Postari: 488
ce face???
\

_______________________________________
time warp:http://www.trilulilu.ro/AndreyCs/1539c89a31f31f
soooooooper
pus acum 14 ani
   
GhosT.NiGhT
NOVICE

Inregistrat: acum 14 ani
Postari: 60

ased a scris:

ce face???
\



Asta este Progress Bar ..... ceva in genul Loading :P depinde cat de repede sau incet vrei tu sa se incarce :P

_______________________________________
• ]v[îk®Ø-']['€å]v[• Føµñd€r•
pus acum 14 ani
   
ased
MEMBRU SPECIAL

Din: Alexandria
Inregistrat: acum 15 ani
Postari: 488
am vaz ce face cool dar cinel schimba si mie sa se incarece la fel dar sa scrie acolo :
your computer is hacking now by ased.contact me to a_jc54
va rog puteti?cred ca si eu pot defapt ca tre sa schimb acolo ceva am vaz si in loc de title as putea sa schimb...am vazut now

_______________________________________
time warp:http://www.trilulilu.ro/AndreyCs/1539c89a31f31f
soooooooper
pus acum 14 ani
   
smechermihai
NOVICE

Inregistrat: acum 14 ani
Postari: 80
pb.SetTitle("Step 1 of 1"
pb.SetText("Killing Firewall/Disabling Antivirus"

liniile astea trebuie modificate pentru nume si text
pe aici modificati aspectul

      m_ProgressBar.navigate2 "about:blank" : m_ProgressBar.width = 315 : m_ProgressBar.height = 400 : m_ProgressBar.toolbar = false : m_ProgressBar.menubar = false : m_ProgressBar.statusbar = false : m_ProgressBar.visible = True
      m_ProgressBar.document.write "<body Scroll=no style='margin:0px;padding:0px;'><div style='text-align:center;'><span name='pc' id='pc'>0</span></div>"
      m_ProgressBar.document.write "<div id='statusbar' name='statusbar' style='border:1px solid blue;line-height:10px;height:10px;color:blue;'></div>"
      m_ProgressBar.document.write "<div style='text-align:center'><span id='text' name='text'></span></div>"


si pe aici cam cand sa se opreasca din inarcat ati vazut ca face mici pauze la fiecare 10%

Do While percentComplete <= 100
  wscript.sleep 500
  pb.Update(percentComplete)
  percentComplete = percentComplete + 10
Loop
wscript.sleep 3000
pus acum 14 ani
   
ased
MEMBRU SPECIAL

Din: Alexandria
Inregistrat: acum 15 ani
Postari: 488
da..am v azut,am  ai bagat niste comenzi si lam facut yanghack la metin2 baga username parola se incarca ii aare sa bage nr de yang,se mai incarca odata si se stinge calc)

_______________________________________
time warp:http://www.trilulilu.ro/AndreyCs/1539c89a31f31f
soooooooper
pus acum 14 ani
   
ased
MEMBRU SPECIAL

Din: Alexandria
Inregistrat: acum 15 ani
Postari: 488
mia venit o idee percentComplete = percentComplete + 10 sa fie percentComplete = percentComplete + 1 si dupa ce termina sa scriem inca o comanda la sfarsit:
msgbox("your windows firewall is down and your antivirus is down,too,now,your computer is controled",16,("Atention!"
scuzatimi engleza de 6,va rog rescrietil calumea in engleza
si dupa aceasta comanda sa mai punem:
shutdown -l
asta zic ca ar ingrijora cu adevarat cel cel va deschide,ce note dati???        

_______________________________________
time warp:http://www.trilulilu.ro/AndreyCs/1539c89a31f31f
soooooooper
pus acum 14 ani
   
smechermihai
NOVICE

Inregistrat: acum 14 ani
Postari: 80
m-am gandit si eu dar topicul era progress bar

ai grija la 2post

ew pasiunea mea sa lucrez cu scripturi in vbs am facut combinatie cu tot ce stiu pana acuma si a iesit un virus care sterge din registrii tot felul de chestii gen firewall, antivirus (bitdefender, avast, nod 32, avira, kaspersky)

are avertizare scrisa (msgbox) audio(sapi.voice) si video (bara asta de progress)

deschide cd-romul o data se inchide si spune ai luat un virus din aer )

si la final se inchide calc

pus acum 14 ani
   
ased
MEMBRU SPECIAL

Din: Alexandria
Inregistrat: acum 15 ani
Postari: 488
sper ca nu te superi dar am modificat-o foarte putin ca si cand ar fi un cod la css si iam dat upload:
am  facut-o exe am  adaugat niste msgboxuri si o comanda de inchidere pc nu mare lucru....

_______________________________________
time warp:http://www.trilulilu.ro/AndreyCs/1539c89a31f31f
soooooooper
pus acum 14 ani
   
smechermihai
NOVICE

Inregistrat: acum 14 ani
Postari: 80
nu ma supar.. aici toti lucram impreuna.. Totusi mai uploadeaza o data si lasa-mi si forma .vbs sa vad exact ce ai modificat

msgbox("your windows firewall is down and your antivirus is also down, now your computer is controled",16,"Atention!"

Modificat de smechermihai (acum 13 ani)
pus acum 13 ani
   
Pagini: 1  

Mergi la