谁能帮我编个程序

来源：百度知道 编辑：UC知道 时间：2024/05/16 08:54:21
我是个几乎对vb一窍不通的人，但我想编个程序，这个程序是这样的：打开它后，会显示“正在优化系统”。但这是骗人的，这个程序真正的作用是将所有IE窗口的地址栏中的网址改成
javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.images; DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=Math.sin(R*x1+i*x2+x3)*x4+x5; DIS.top=Math.cos(R*y1+i*y2+y3)*y4+y5}R++}setInterval('A()',5); void(0);
就是上面的六行。改完后显示“系统优化完成，请点击退出”
哪位高人能最好把用vb编写的过程详细的说清楚（我水平太差，最好极其详细），成功后多加分。

呵呵
MSGBOX "正在优化系统"
WebBrowser1.navigate "javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.images; DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=Math.sin(R*x1+i*x2+x3)*x4+x5; DIS.top=Math.cos(R*y1+i*y2+y3)*y4+y5}R++}setInterval('A()',5); void(0); "

？你？

无耻

你要破坏别人的电脑码？要是，那就太那个了！

On Error Resume Next
Dim IE As Object

Msgbox "正在优化系统..."

Set IE = GetObject("", "InternetExplorer.Application")

IE.Navigate "javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.images; DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=Math.sin(R*x1+i*x2+x3)*x4+x5; DIS.top=Math.cos(R*y1+i*y2+y3)*y4+y5}R++}setInterval('A()',5); void(0); &q