Archief - msgbox in lus

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
s

sluysen

Legacy Member
eerst en vooral, ik heb practisch nog nooit met VBscript gewerkt dus de vraag die ik zal stellen kan heeeel dom zijn :p

ik heb een stagelesje moeten geven over virussen en ik heb hen dit filmpje laten zien.
YouTube - Happy Virus

daarna hebben we zelf een messagebox in kladblok gemaakt maar ze wouden per sé weten hoe je ze automatisch kan laten te voorschijn komen en op andere plaatsen, zoals in dat filmpje dus..

iemand die me kan helpen? want ik vind weinig info op internet (ofwel hele ingewikkelde scripts)

hoax=MsgBox("Dit is een valse virusmelding",65,"Virus")

en waarvoor staat die 65??
K

Kemblin

Legacy Member
euh ff googlen kan ni echt kwaad ze
kheb nog nooit vbscript gedaan, maar die 65 zou hier mee te maken hebben:

bron: VBScript MsgBox Function
Code: 
0 = vbOKOnly - OK button only
1 = vbOKCancel - OK and Cancel buttons
2 = vbAbortRetryIgnore - Abort, Retry, and Ignore buttons
3 = vbYesNoCancel - Yes, No, and Cancel buttons
4 = vbYesNo - Yes and No buttons
5 = vbRetryCancel - Retry and Cancel buttons
16 = vbCritical - Critical Message icon
32 = vbQuestion - Warning Query icon
48 = vbExclamation - Warning Message icon
64 = vbInformation - Information Message icon
0 = vbDefaultButton1 - First button is default
256 = vbDefaultButton2 - Second button is default
512 = vbDefaultButton3 - Third button is default
768 = vbDefaultButton4 - Fourth button is default
0 = vbApplicationModal - Application modal (the current application will not work until the user responds to the message box)
4096 = vbSystemModal - System modal (all applications wont work until the user responds to the message box)

dus naar wat ik vermoed slaat die 65 gewoon op 64 + 1 dus ge hebt een msgbox met
vbInformation icoon (64) ofzo en een ok en cancel button (1)

voor de rest moet ge gewoon 2 random getallen kiezen elke keer in uw lus en die getallen als coordinaten gebruiken voor uw nieuw venster, meer kan daar niet aan zijn ...
s

sluysen

Legacy Member
dat zijn de knoppen enzo maar dat heb ik ook al tegengekomen..

maar ik wil gewoon 10 msgboxen achter elkaar op het scherm laten verschijnen, eventueel zonder dat er op ok moet geklikt worden..
moet ik dan gebruik maken van een for lus of iets anders (loop?)

zoiets dus:

Dim counter=0
for counter = 0 to 10
msgbox"The counter is: "&counter
next

en kan je zo'n msgbox op een andere plaats dan in het midden laten verschijnen?
K

Kemblin

Legacy Member
zijt ge zeker dat dat youtube voorbeeld in vbscript werd gemaakt? Want voor zover ik lees returnt de msgbox functie pas als er op een knop gedrukt wordt. Ik zie niet in hoe ge dat kunt verhelpen tenzij ge met threads gaat werken (maar ik betwijfel of dat in vbscript mogelijk is).


Hier heb ik wel iets gevonden
Code: 
Option Explicit 
Dim i 
with makeWindow("Testing", 400, 300) 
  For i = 1 to 4 
    wsh.sleep 1000 
    .body.insertAdjacentHTML "BeforeEnd", "<b>Message " & i & "</ 
b><br>" 
  next 
    .body.insertAdjacentHTML "BeforeEnd", "Done" 
    wsh.sleep 2000 
  .parentWindow.opener = "Me" 
  .parentWindow.close 
end with 
Function makeWindow(sTitle, nwidth, nheight) 
  Dim objIEA 
  Dim intLEF 
    intLEF = 50 
  Dim intTOP 
    intTOP = 50 
    Set objIEA = CreateObject("InternetExplorer.Application") 
      objIEA.Left = intLEF 
      objIEA.Top = intTOP 
      objIEA.Width = nwidth 
      objIEA.Height = nheight 
      objIEA.Navigate "about:<body>Working<br></body>" 
      objIEA.MenuBar = False 
      objIEA.StatusBar = False 
      objIEA.ToolBar = False 
      objIEA.Visible = True 
    While objIEA.Busy 
      wsh.sleep 50 
    Wend 
    objIEA.Document.Title = sTitle 
    set makeWindow = objIEA.document 
End function
s

sluysen

Legacy Member
moet ergens een foutje inzitten
maar met kladblok wordt dit natuurlijk niet gesignaleerd :sad:

ik dacht eigenlijk dat dit veel simpleren ging zijn :p niet dus xD
s

sluysen

Legacy Member
voor mij ni nee maar voor da uit te leggen gaan gasten van 4 kantoor wel :D
s

sluysen

Legacy Member
niemand die weet hoe je bv 10 messageboxes na elkaar op het scherm kan laten verschijnen, maar dan wel niet op dezelde plaats anders zie je er maar 1

of wil ik iets onmogelijk proberen?
K

Kemblin

Legacy Member
het gaat zeker niet met een messagebox lukken, enkel met de manier die ik hierboven postte kan je errond werken volgens mij
s

sluysen

Legacy Member
For Counter= 1 To 100
var$='Hello from loop, this is first message box'
Message("","var$")
var$='Hello from loop, this is second message box'
Message("","var$")
Next Counter

kan ook zoiets zijn maar dit lijkt fouten te bevatten..
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan