Search found 45 matches
- Thu Mar 08, 2012 7:51 pm
- Forum: Beginners
- Topic: Analog VBS - Macro
- Replies: 2
- Views: 17655
Very long, but now works !!! Ã’hank you. ;) VBSTART Function GetDrives Dim drtype(6) drtype(1) = "Removable" Set fso = CreateObject("Scripting.FileSystemObject") Set oDrive = fso.Drives ' Get Drives collection. For Each curDrive In oDrive ' All drive objects Text = Removable & drtype(curDrive.DriveT...
- Thu Mar 08, 2012 6:24 pm
- Forum: Beginners
- Topic: Analog VBS - Macro
- Replies: 2
- Views: 17655
Analog VBS - Macro
How to make this VBS script of Macro??? VBStart Set WSHshell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") For Each Drive In FSO.Drives If (Drive.drivetype = 1)Then MsgBox("Flash.") End If Next VBEND MIX Or to make this VBS script combined and Macro??? VBStart ...
- Tue Jan 17, 2012 5:34 pm
- Forum: Beginners
- Topic: Microsoft vbscript runtime error 13 type mismatch
- Replies: 7
- Views: 38503
- Tue Jan 17, 2012 5:09 pm
- Forum: Beginners
- Topic: Microsoft vbscript runtime error 13 type mismatch
- Replies: 7
- Views: 38503
The first script works correctly on Windows7. On windows XP I have stopped services. Maybe give an error for that reason. :x :x :x The second script on Windows XP and Windows 7 shows this. http://www.picvalley.net/u/2837/13714227774379686151326816032E90J0E8gUukLWqrF3Gcf.JPG P.S. Another Question: Ca...
- Tue Jan 17, 2012 12:37 pm
- Forum: Beginners
- Topic: Microsoft vbscript runtime error 13 type mismatch
- Replies: 7
- Views: 38503
- Tue Jan 17, 2012 12:50 am
- Forum: Beginners
- Topic: Microsoft vbscript runtime error 13 type mismatch
- Replies: 7
- Views: 38503
Microsoft vbscript runtime error 13 type mismatch
Code: Select all
VBStart
VBEND
VBEval>DateAdd("d",10,Date),yesterday
VBEval>Year("%yesterday%"),yyyy
VBEval>Month("%yesterday%"),mm
VBEval>Day("%yesterday%"),dd
Message>%yyyy%\%mm%\%dd%
- Sat Sep 10, 2011 3:48 pm
- Forum: Beginners
- Topic: Problem with numbers.
- Replies: 0
- Views: 4830
Problem with numbers.
input>data,Input data,00100 Let>Counter=0 Repeat>Counter Add>counter,1 let>%data%=%data%+1 WriteLn>c:\numbers.txt,,%data% Until>Counter=25 Trying to generate numbers but ... The numbers are written without zeros in front of. I want to look like 00100; 00101; 00102;00103 ........... Can it happen???...
- Wed Mar 30, 2011 3:05 pm
- Forum: Beginners
- Topic: Taskbar and Balloonòype question.
- Replies: 4
- Views: 6112
- Wed Mar 30, 2011 2:28 pm
- Forum: Beginners
- Topic: Taskbar and Balloonòype question.
- Replies: 4
- Views: 6112
- Sun Oct 31, 2010 8:32 pm
- Forum: Beginners
- Topic: Pass *****
- Replies: 2
- Views: 3824
- Sun Oct 31, 2010 4:50 pm
- Forum: Beginners
- Topic: Pass *****
- Replies: 2
- Views: 3824
Pass *****
Dialog>Dialog1 Caption=Dialog1 Width=296 Height=164 Top=206 Left=222 Edit=msEdit1,15,24,121,Monika Edit=msEdit2,16,71,121,******* Label=Input name:,16,8,true Label=Input password,16,56,true Button=Login,194,95,75,25,0 EndDialog>Dialog1 show>Dialog1, How to password to look at stars ????
- Thu Jul 15, 2010 8:47 pm
- Forum: Beginners
- Topic: Dialog Desinger
- Replies: 2
- Views: 3987
Ã’hanks now works
[/quote]
Second question?
How do I change the resolution from 16 to 32 bits
What is the command?
Code: Select all
GetScreenRes>x,y
let>x=x-289
let>y=y-139
Dialog>Dialog1
Caption=Hello
Width=289
Height=109
Top=y
Left=x
EndDialog>Dialog1
show>Dialog1,
Second question?
How do I change the resolution from 16 to 32 bits
What is the command?
- Wed Jul 14, 2010 8:05 pm
- Forum: Beginners
- Topic: Dialog Desinger
- Replies: 2
- Views: 3987
Dialog Desinger
I have two monitors 17 and 19 inches and I want my program to always show right - down.
[/quote]
How to do this ?
Code: Select all
Dialog>Dialog1
Caption=notes
Width=281
Height=242
Top=Right
Left=Right
EndDialog>Dialog1
How to do this ?
- Mon Jun 07, 2010 11:03 pm
- Forum: Beginners
- Topic: Problem with files
- Replies: 8
- Views: 8727
- Mon Jun 07, 2010 5:52 pm
- Forum: Beginners
- Topic: Problem with files
- Replies: 8
- Views: 8727