.



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

   

ViSiToR



Silver Member
| | | ICQ | |
LEX1
, , , ,
 

:
2) .

...
 
Troitsky
, :
 

:
Set objHTM = CreateObject("htmlfile")
strTXT = objHTM.ParentWindow.ClipboardData.GetData("text")
 
If strTXT <> "" Then MsgBox strTXT


----------
ViSiToR a.k.a CreatoR
CreatoR , CreatoR !

: 3251 | . 01-04-2006 | : 23:04 15-11-2006
LEX1

Silver Member
| | | |
Troitsky
1) ? (OperaWindowClass),  WM_GETTEXT.
, VBScript WinApi?
 
ViSiToR
2) IE .

:
2), 1

 

: 3793 | . 24-10-2005 | : 23:26 15-11-2006 | : LEX1, 01:06 16-11-2006
ViSiToR



Silver Member
| | | ICQ | |
LEX1
2), :
 

:
?

 
Troitsky :
 

:

 
WinApi :
 

:
, :

 
2), 1)


----------
ViSiToR a.k.a CreatoR
CreatoR , CreatoR !

: 3251 | . 01-04-2006 | : 23:56 15-11-2006
Funt123



Junior Member
| | | |
, , " "?

: 161 | . 09-11-2005 | : 22:04 27-11-2006
jONES1979



Member
| | | ICQ | |
Funt123
 
:
 

 
...
 
  objExplorer , +

: 324 | . 20-05-2005 | : 18:44 02-12-2006
WRFan



Gold Member
| | | |
, rapidshare.com , vbscript, , .. IE  gif , . , 5 . . . . , activex Windows Image Acquisition Library v2.0. . - vbscript . . :
 

:
 
<SCRIPT LANGUAGE="VBSCRIPT">
'Set Http = CreateObject("MSXMLHTTP2.ServerXMLHTTPHTTP")
'Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
Set AdoStream = CreateObject("ADODB.Stream")
url = "http://127.0.0.1:85/asp/access4417101.gif" 'only for testing purposes
p=instrrev(url,"/")  
filename = right(url,len(url)-p)
 XMLHTTP.open "GET", url, False
XMLHTTP.Send
Set ADOStream = CreateObject("ADODB.Stream")  
ADOStream.type = 1  
ADOStream.Open  
ADOStream.Write XMLHTTP.responseBody  
Set filesys1 = CreateObject("Scripting.FileSystemObject")
Set folder = filesys1.GetSpecialFolder(2)
ADOStream.SaveToFile folder & "\" & filename, 2  
ADOStream.Close  
 
'---------------------------------------------
 
Dim Img 'As ImageFile
Dim IP 'As ImageProcess
Dim v 'As Vector
 
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Set v = CreateObject("WIA.Vector")
 
Img.LoadFile folder & "\" & filename
 
'If Img.IsAnimated Then
'msgbox "This is an animated image."
'Else
'msgbox "This is not an animated image."
'end if
 
'Img.ActiveFrame = Img.FrameCount
'Img.ActiveFrame = 12
for each oProperty in Img.Properties
if IsObject(oProperty.Value) Then  
set oVector = oProperty.Value
for i = 1 to oVector.Count 'number of frames
if oVector(i) >= 15000 AND oVector(i) < 25000 then Img.ActiveFrame = i
 
'Select Case oVector(i)    
'Case  19928:  
'Img.ActiveFrame = i
'msgbox Img.ActiveFrame
'End Select
next
end if
next
 
'---------------------------------------------
 
IP.Filters.Add IP.FilterInfos("Scale").FilterID
IP.Filters(1).Properties("MaximumWidth") = 350
IP.Filters(1).Properties("MaximumHeight") = 250
Set Img = IP.Apply(Img)
Img.SaveFile folder & "\hacked_" & filename
 
'---------------------------------------------
 
document.write("<IMG SRC=" & folder & "\hacked_" & filename & ">")
set filesys2 = CreateObject ("Scripting.FileSystemObject")
set demofile = filesys2.GetFile(folder & "\hacked_" & filename)
set demofile2 = filesys2.GetFile(folder & "\" & filename)
demofile.Delete
demofile2.Delete
 
</SCRIPT>
 

 
. .. WIA , \local settings\Temporary Internet Files\Content.IE5, Microsoft.XMLHTTP activex .
 
, WIA activex-, frame delay, .. . :
 

:
 
FrameDelay 800, 10, 17, 16, 11, 17, 18, 19, 12, 12, 11, 19928, 5587, 419, 547, 2271, 7520, 28633, 28113, 3403, 1652  

 
, 800 , 2-! 12- 20.000 . , , ( ).
 
, , , . document.write , .
 
( %temp% ).
 
WIA, . 100 , . chm , msdn.microsoft.com, .

: 5275 | . 25-11-2002 | : 02:33 14-12-2006
jONES1979



Member
| | | ICQ | |
WRFan
 
.  
?

: 324 | . 20-05-2005 | : 08:14 14-12-2006
mozers



Silver Member
| | | |
WRFan
  WSH !
- (
- "ADODB.Stream" ()
- - Windows Image Acquisition Library v2.0

: 2187 | . 03-01-2002 | : 11:31 14-12-2006
jONES1979



Member
| | | ICQ | |
Funt123
 
, .
:
, , " "?

 

 
http://groups.msn.com/windowsscript/shellapplication.msnw

: 324 | . 20-05-2005 | : 14:28 14-12-2006
WRFan



Gold Member
| | | |

:
?  

, rapidshare.com . , , , .
 

:
"ADODB.Stream" (

, . , activex , . . , ,

: 5275 | . 25-11-2002 | : 00:54 15-12-2006
jONES1979



Member
| | | ICQ | |

:
, rapidshare.com . , , , .  

 
... ,.. , - OCR ... .

: 324 | . 20-05-2005 | : 15:05 16-12-2006
CLOPOMOR

Newbie
| | | |
VBS  ( IE ( )) .
.
  = 1 - ... ( - )
 
  ,   ...  

: 7 | . 17-12-2006 | : 08:53 18-12-2006
Troitsky



| | | ICQ | |
CLOPOMOR

:
VBS  ( IE ( )) .  
.

, " " IE , ?
IE -> -> .
, -, .


----------
.
.
- . - !

: 795 | . 13-12-2003 | : 10:20 18-12-2006 | : Troitsky, 10:37 18-12-2006
CLOPOMOR

Newbie
| | | |
,     .

: 7 | . 17-12-2006 | : 11:19 18-12-2006
Troitsky



| | | ICQ | |
CLOPOMOR
, -- , -, . ( . 2, 3)


----------
.
.
- . - !

: 795 | . 13-12-2003 | : 11:42 18-12-2006
Sindikat

Junior Member
| | | |
, vbs dos(866) win(1251)?

: 63 | . 26-11-2003 | : 23:04 18-12-2006
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
   

: 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