.

•
• •
• on-line?
• ? • ? •
Ru.Board » » » "" VBScript

: ShIvADeSt

ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1    • •
: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

   

mozers



Silver Member		 | | | |
Sindikat
:
function dos2win(text){
    var out = ""
    var dos="񆦇-’"
    var win="娸 "
    for (i=0; i<text.length; i++) {
        var ch = text.charAt(i);
        var index = dos.indexOf(ch)
        if (index >= 0){
            ch = win.charAt(index);
        }
        out = out + ch;
    }
    return out;
}
, - JS, ...
 
:
VBS :
:
' DOS- Windows-
Function DosToWin(s)
Dim i,k,ss
  ss=""
  For i=1 To Len(s)  '
    k = Asc(Mid(s,i,1))  ' ANSI- i-
    ' k  
    ' Windows-
    If (128 <= k) And (k <= 175) Then
      k=k+64
    ElseIf (224 <= k) And (k <= 239) Then
      k=k+16
    ElseIf k = 240 Then
      k=168
    ElseIf k = 241 Then
      k=184
    End If
    ss=ss+Chr(k)  '
  Next
DosToWin=ss
End Function
: 2187 | . 03-01-2002 | : 12:25 19-12-2006
CLOPOMOR

Newbie		 | | | |
Troitsky
 
- IE   then   ,     ...
 
   
 
Set WSHShell = WScript.CreateObject ("WScript.Shell")
 
Set FavoritesPath = WSHShell.SpecialFolders("Favorites")
 
Set MyShortcut = WSHShell.CreateShortcut (FavoritesPath +"\\ .URL")
 
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("http://forum.ru-board.com")
 
msgbox ""  
 
MyShortcut.Save ()
 
JS , ?
 
 
 
 
 
: 7 | . 17-12-2006 | : 20:36 19-12-2006
jONES1979



Member		 | | | ICQ | |
CLOPOMOR
 
c WMI. (events)
 
. . " WMI WMIC" .
http://www.microsoft.com/technet/scriptcenter/default.mspx
: 324 | . 20-05-2005 | : 12:55 20-12-2006
CLOPOMOR

Newbie		 | | | |
jONES1979
  ,   ( )) )  . ,
: 7 | . 17-12-2006 | : 16:38 20-12-2006
WRFan



Gold Member		 | | | |

:
- OCR ...  

 
, OCR
 
, :
 

:
 
'ON ERROR RESUME NEXT
dim objShell2
dim objShellWindows2
set objShell2 = CreateObject("Shell.Application")
 
set objShellWindows2 = objShell2.Windows
 
For i = 0 to objShellWindows2.Count - 1
 
Set objIE = objShellWindows2.Item(i)
if (InStr(1,objIE.locationurl, "http://",0) = 1) then 'check if Window is IE or Windows Explorer. You can also use Win32_Process class [WMI] IF you are running IE as a SEPARATE process (iexplore.exe): http://msdn2.microsoft.com/en-us/library/aa394372.aspx
objIE.fullscreen = false
objIE.resizable = true
objIE.menubar = true
objIE.statusbar = true
objIE.theatermode = false
objIE.toolbar = true
objIE.addressbar = true
objIE.statustext = ""
end if
next
set objShellWindows2 = nothing
set objShell2 = nothing
 
: 5275 | . 25-11-2002 | : 22:22 23-12-2006 | : WRFan, 22:22 23-12-2006
jONES1979



Member		 | | | ICQ | |

:
, OCR  

 
ABBYY FineReader Scripting Edition
 
( ) OCR-, , c API ... ,  , ...
: 324 | . 20-05-2005 | : 18:00 24-12-2006
WRFan



Gold Member		 | | | |
(. ), . height width WMI. WMI - , , - , , , , .. . 10 . 102 , 70% cpu, .
 
WMI Reference: http://msdn2.microsoft.com/en-us/library/aa394572.aspx
WQL (SQL for WMI) Reference: http://msdn2.microsoft.com/en-us/library/aa394606.aspx
 

:
 
ON ERROR RESUME NEXT
set objShell = CreateObject("Shell.Application")
set objShellWindows = objShell.Windows
 
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DisplayConfiguration")
For Each objItem in colItems
height =  objItem.PelsHeight
width = objItem.PelsWidth
Next
 
for each obj in objShellWindows
 
 
if obj.type = "HTML-Dokument" then
if (not Err = 430) then  'is the window IE or WE? WE Class doesnt support Automation, returning error 430
 
Err.Clear
 
if (objShellWindows.count > 0) and (obj.visible = false) then  
if (not Err = 424) then 'if invisible IE windows exist (an invisible InternetExplorer.Application might be in memory). Error 424 (Object required) means either no windows open, or the entire objShell crashed!
obj.visible = true
end if
end if
 
obj.fullscreen = false
obj.resizable = true
obj.menubar = true
obj.statusbar = true
obj.theatermode = false
obj.toolbar = true
obj.addressbar = true
obj.statustext = "" ' doesnt work properly!
obj.height = height 'if resolution height is e.g. 840, actual height is 842. Everything above 833 is ignored and set to 842
obj.width = width
 
end if
end if
 
Err.Clear
 
next
set objShellWindows = nothing
set objShell = nothing
 
'For testing the script with invisible IE windows use the following script:
 
'Set objIE = WScript.CreateObject("InternetExplorer.Application","objIE_")
'objIE.visible = false
'msgbox objShellWindows.count
 
'Execute the Window Normalisation Script BEFORE clicking away the msgbox!
 
: 5275 | . 25-11-2002 | : 02:51 28-12-2006 | : WRFan, 02:56 28-12-2006
zeroandruxa



Full Member		 | | | |
- , , ( ) - - - , , ?
: 538 | . 02-11-2005 | : 13:20 28-12-2006
distance

Advanced Member		 | | | |
WRFan

:
10 . 102 , 70% cpu,

, .
c++ 2 ...
, , c# 2 , 10 - :P)
: 878 | . 28-03-2004 | : 13:53 28-12-2006
WRFan



Gold Member		 | | | |
distance
 
. , , . , ("EventSinks") , . WMI .
 
SWbemSink + __InstanceCreationEvent , Win32_Subdirectory loop-. - WMI . offline , :
 
http://www.microsoft.com/downloads/details.aspx?FamilyId=E15438AC-60BE-41BD-AA14-7F1E0F19CA0D&displaylang=en
 
40, MS document explorer-, , 150 . , - WMI IIS , uninstall
: 5275 | . 25-11-2002 | : 10:43 30-12-2006
xTOPOLx



Newbie		 | | | |
!!!
VBScript   !?  
: 1 | . 05-01-2007 | : 00:12 06-01-2007 | : xTOPOLx, 00:35 06-01-2007
CLOPOMOR

Newbie		 | | | |
!
 *.tmp   TMPFILES,  $$   1.txt   TMPFILES\ *.tmp
 
BATC , VBS , ...
VBS   goto     ?
: 7 | . 17-12-2006 | : 18:13 09-01-2007 | : CLOPOMOR, 18:25 09-01-2007
WRFan



Gold Member		 | | | |

:
VBScript   !?  

 
http://www3.oxedion.com/index.php/download/8338d6e31fbed8cfbce8b29452bae264
 

:
VBS   goto    

 
. Visual Basic , VBScript :
 
Visual Basic for Applications Features Not In VBScript:
http://msdn2.microsoft.com/en-us/library/30593abb.aspx
 
, vbscript:
 

:
 
<SCRIPT LANGUAGE="vbscript">
Set TheObject = Document.createElement("object")
document.body.appendChild(TheObject)
 
'TheObject.classid = "clsid:4C599241-6926-101B-9992-00000B65C6F9" 'Forms.Image.1
TheObject.classid = "clsid:04A1E553-FE36-4FDE-865E-344194E69424" 'msinkaut.InkPicture.1
TheObject.id = "picture"
TheObject.picture = LoadPicture("C:\bla.jpg")
 
Set regEx = New RegExp
regEx.Pattern = TheObject.classid
regEx.IgnoreCase = true
if regEx.Test("clsid:4C599241-6926-101B-9992-00000B65C6F9")  = true then 'Forms.Image.1
TheObject.autosize = 1
TheObject.SpecialEffect  = 1
TheObject.MousePointer = 0
 
elseif regEx.Test("clsid:04A1E553-FE36-4FDE-865E-344194E69424")  = true then 'msinkaut.InkPicture.1
TheObject.SizeMode  = StretchImage
end if  
</SCRIPT>
 

 
. - Forms.Image InkPicture. MS office ,
 
activex :
 

:
 
sub picture_click()
msgbox "I am an InkPicture Event!"
end sub
 

 
InkPicture . picture=object.id (id )
: 5275 | . 25-11-2002 | : 04:41 21-01-2007 | : WRFan, 11:56 21-01-2007
Tipulatoid



Member		 | | | |

igor_andreev , :

:
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.OpenTextFile("stock.txt", 1, false)
Set f = fso.OpenTextFile("skipped_stock.txt", 2, true)
    fsContent = fs.ReadAll
    fs.Close
 
Set regEx = New RegExp
    regEx.Pattern = "\D(\s[\s\-\,0-9]{4,})$"
    regEx.MultiLine = True
    regEx.Global = True
Set Matches = regEx.Execute(fsContent)
 For Each Match in Matches
    RetStr = RetStr & Match.Value & vbCRLF
    RetStr = regEx.Replace(RetStr, "$1")
 Next    
 f.Write RetStr
 f.Close
 

 
Win XP, Win 2000 :

:
regEx.MultiLine = True

 
, , , , .
, Win 2000
: 349 | . 22-12-2006 | : 12:07 31-01-2007
igor_andreev

Advanced Member		 | | | |
Tipulatoid
, 2000 WSH
en ru 700
 
 
:
- ,
stock.txt

:
 
SAGA -6,42 -9,24 10,55 1,23    
PlayGirl 8,92 15,57 20,56 4,39
... ..
 
: 1705 | . 08-12-2004 | : 12:33 31-01-2007 | : igor_andreev, 12:47 31-01-2007
Tipulatoid



Member		 | | | |
igor_andreev
, .
- 4 , , , . 8- - . , ,
: 349 | . 22-12-2006 | : 15:29 31-01-2007
igor_andreev

Advanced Member		 | | | |
, {4,} -
: 1705 | . 08-12-2004 | : 16:31 31-01-2007
Tipulatoid



Member		 | | | |
igor_andreev

, , , :
quality.txt:

:
SAGA    
PlayGirl  
.    
BSC    
Raul Gonsalez    
Last champion    
 

- :

:
==    
= =  
= .=    
==    
==    
==    
 

"=" , .
, . , , . , - , 10-15 , .
PS 4 : " ", "", "", " ."
: 349 | . 22-12-2006 | : 17:15 31-01-2007
Troitsky



 | | | ICQ | |
Tipulatoid

:
, , ,

:
" " 1,
"" 2,
"" 3,
" ." 4;
;
;
: 1 " " ..
 



----------
.
.
- . - !
: 795 | . 13-12-2003 | : 17:24 31-01-2007 | : Troitsky, 17:27 31-01-2007
Tipulatoid



Member		 | | | |
Troitsky
,   . - 5 , 3 - , .
VBS . (bat-) , , .
- , .
: 349 | . 22-12-2006 | : 18:14 31-01-2007
   

: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

Ru.Board » » » "" VBScript
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1


Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

.ru