vbs 怎么获取ie对象相对与桌面的坐标

移动鼠标到桌面坐标200,50的vbs命令如下：

CreateObject(WScript.Shell).Run mouse.exe m,200,50

点击鼠标左键的vbs命令如下：

CreateObject(WScript.Shell).Run mouse.exe l

点击鼠标右键的vbs命令如下：

CreateObject(WScript.Shell).Run mouse.exe r

双击鼠标左键的vbs命令如下：

上面是我在网上找到的用vbs控制鼠标移动和点击的文件，其中mouse.exe就是调用AIP的，能否按这个模式帮我做个获取屏幕某坐标颜色的EXE文件发到我的邮箱，我的E-mail：rootmail@126.com，感激不尽！

ect("Excel.Application")

objExcel.Visible = true

Set objWorkbooks = objExcel.Workbooks.Open ("D:\123.xls",3,false)

x=objExcel.Cells(1,1).value

msgbox x

cells(x,y)代表x行y列的数据。

============================教程===============================

Set oExcel= CreateObject("Excel.Application")

(一) 使用动态创建的方法

首先创建 Excel 对象，使用ComObj:

oExcel = CreateObject( "Excel.Application" )

1) 显示当前窗口：

oExcel.Visible = True

2) 更改 Excel 标题栏：

oExcel.Caption = "应用程序调用 Microsoft Excel"

3) 添加新工作簿：

oExcel.WorkBooks.Add

4) 打开已存在的工作簿：

oExcel.WorkBooks.Open( "C:\Excel\Demo.xls" )

5) 设置第2个工作表为活动工作表：

oExcel.WorkSheets(2).Activate

或

oExcel.WorksSheets( "Sheet2" ).Activate

6) 给单元格赋值：

oExcel.Cells(1,4).Value = "第一行第四列"

7) 设置指定列的宽度（单位：字符个数），以第一列为例：

oExcel.ActiveSheet.Columns(1).ColumnsWidth = 5

8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：

oExcel.ActiveSheet.Rows(2).RowHeight = 1/0.035 ' 1厘米

9) 在第8行之前插入分页符：

oExcel.WorkSheets(1).Rows(8).PageBreak = 1

10) 在第8列之前删除分页符：

oExcel.ActiveSheet.Columns(4).PageBreak = 0

11) 指定边框线宽度：

oExcel.ActiveSheet.Range( "B3:D4" ).Borders(2).Weight = 3

1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )

12) 清除第一行第四列单元格公式：

oExcel.ActiveSheet.Cells(1,4).ClearContents

13) 设置第一行字体属性：

oExcel.ActiveSheet.Rows(1).Font.Name = "隶书"

oExcel.ActiveSheet.Rows(1).Font.Color = clBlue

oExcel.ActiveSheet.Rows(1).Font.Bold = True

oExcel.ActiveSheet.Rows(1).Font.UnderLine = True

14) 进行页面设置：

a.页眉：

oExcel.ActiveSheet.PageSetup.CenterHeader = "报表演示"

b.页脚：

oExcel.ActiveSheet.PageSetup.CenterFooter = "第&P页"

c.页眉到顶端边距2cm：

oExcel.ActiveSheet.PageSetup.HeaderMargin = 2/0.035

d.页脚到底端边距3cm：

oExcel.ActiveSheet.PageSetup.HeaderMargin = 3/0.035

e.顶边距2cm：

oExcel.ActiveSheet.PageSetup.TopMargin = 2/0.035

f.底边距2cm：

oExcel.ActiveSheet.PageSetup.BottomMargin = 2/0.035

g.左边距2cm：

oExcel.ActiveSheet.PageSetup.LeftMargin = 2/0.035

h.右边距2cm：

oExcel.ActiveSheet.PageSetup.RightMargin = 2/0.035

i.页面水平居中：

oExcel.ActiveSheet.PageSetup.CenterHorizontally = 2/0.035

j.页面垂直居中：

oExcel.ActiveSheet.PageSetup.CenterVertically = 2/0.035

k.打印单元格网线：

oExcel.ActiveSheet.PageSetup.PrintGridLines = True

15) 拷贝 *** 作：

a.拷贝整个工作表：

oExcel.ActiveSheet.Used.Range.Copy

b.拷贝指定区域：

oExcel.ActiveSheet.Range( "A1:E2" ).Copy

c.从A1位置开始粘贴：

oExcel.ActiveSheet.Range.( "A1" ).PasteSpecial

d.从文件尾部开始粘贴：

oExcel.ActiveSheet.Range.PasteSpecial

16) 插入一行或一列：

a. oExcel.ActiveSheet.Rows(2).Insert

b. oExcel.ActiveSheet.Columns(1).Insert

17) 删除一行或一列：

a. oExcel.ActiveSheet.Rows(2).Delete

b. oExcel.ActiveSheet.Columns(1).Delete

18) 打印预览工作表：

oExcel.ActiveSheet.PrintPreview

19) 打印输出工作表：

oExcel.ActiveSheet.PrintOut

20) 工作表保存：

if not oExcel.ActiveWorkBook.Saved then

oExcel.ActiveSheet.PrintPreview

21) 工作表另存为：

oExcel.SaveAs( "C:\Excel\Demo1.xls" )

22) 放弃存盘：

oExcel.ActiveWorkBook.Saved = True

23) 关闭工作簿：

oExcel.WorkBooks.Close

24) 退出 Excel：

oExcel.Quit

(二) 使用VBS 控制Excle二维图

1）选择当第一个工作薄第一个工作表

set oSheet=oExcel.Workbooks(1).Worksheets(1)

2）增加一个二维图

achart=oSheet.chartobjects.add(100,100,200,200)

3）选择二维图的形态

achart.chart.charttype=4

4）给二维图赋值

set series=achart.chart.seriescollection

range="sheet1!r2c3:r3c9"

series.add range,true

5）加上二维图的标题

achart.Chart.HasTitle=True

achart.Chart.ChartTitle.Characters.Text=" Excle二维图"

6）改变二维图的标题字体大小

achart.Chart.ChartTitle.Font.size=18

7）给二维图加下标说明

achart.Chart.Axes(xlCategory, xlPrimary).HasTitle = True

achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "下标说明"

8）给二维图加左标说明

achart.Chart.Axes(xlValue, xlPrimary).HasTitle = True

achart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "左标说明"

9）给二维图加右标说明

achart.Chart.Axes(xlValue, xlSecondary).HasTitle = True

achart.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "右标说明"

10）改变二维图的显示区大小

achart.Chart.PlotArea.Left = 5

achart.Chart.PlotArea.Width = 223

achart.Chart.PlotArea.Height = 108

=============================================================

On Error Resume Next

dim temp1,temp2

dim websz(100)

set objExcel = CreateObject("Excel.Application")

objExcel.Visible = true

Set objWorkbooks = objExcel.Workbooks.Open ("D:\123.xls",3,false)

for i = 1 to 5000

'这里修改excel中数据的结束行号码

websz(i)= "" &objExcel.Cells(i,1).value

next

for j=1 to 5000

temp2=j&".html"

Set xPost = CreateObject("Microsoft.XMLHTTP")

xPost.Open "GET",websz(j),0

xPost.Send()

Set sGet = CreateObject("ADODB.Stream")

sGet.Mode = 3

sGet.Type = 1

sGet.Open()

sGet.Write(xPost.responseBody)

sGet.SaveToFile temp2,2

Wscript.sleep 1000

next

Option Explicit

Dim WshShell

Dim oExcel, oBook, oModule

Dim strRegKey, strCode, x, y

Set oExcel = CreateObject("Excel.Application") '创建 Excel 对象

set WshShell = CreateObject("wscript.Shell")

strRegKey = "HKEY_CURRENT_USER\So.tware\Microsoft\Office\$\Excel\Security\AccessVBOM"

strRegKey = Replace(strRegKey, "$", oExcel.Version)

WshShell.RegWrite strRegKey, 1, "REG_DWORD"

Set oBook = oExcel.Workbooks.Add '添加工作簿

Set oModule = obook.VBProject.VBComponents.Add(1) '添加模块

strCode = _

"'Author: Demon" &vbCrLf &_

"'Website: http://demon.tw" &vbCrLf &_

"'Date: 2011/5/10" &vbCrLf &_

"Private Type POINTAPI : X As Long : Y As Long : End Type" &vbCrLf &_

"Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" &vbCrLf &_

"Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI) As Long" &vbCrLf &_

"Private Declare Sub mouse_event Lib ""user32"" Alias ""mouse_event"" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)" &vbCrLf &_

"Public Function GetXCursorPos() As Long" &vbCrLf &_

"Dim pt As POINTAPI : GetCursorPos pt : GetXCursorPos = pt.X" &vbCrLf &_

"End Function" &vbCrLf &_

"Public Function GetYCursorPos() As Long" &vbCrLf &_

"Dim pt As POINTAPI: GetCursorPos pt : GetYCursorPos = pt.Y" &vbCrLf &_

"End Function"

oModule.CodeModule.AddFromString strCode '在模块中添加 VBA 代码

'Author: Demon

'Website: http://demon.tw

'Date: 2011/5/10

x = oExcel.Run("GetXCursorPos") '获取鼠标 X 坐标

y = oExcel.Run("GetYCursorPos") '获取鼠标 Y 坐标

WScript.Echo x, y

oExcel.Run "SetCursorPos", 30, 30 '设置鼠标 X Y 坐标

Const MOUSEEVENTF_MOVE = &H1

Const MOUSEEVENTF_LEFTDOWN = &H2

Const MOUSEEVENTF_LEFTUP = &H4

Const MOUSEEVENTF_RIGHTDOWN = &H8

Const MOUSEEVENTF_RIGHTUP = &H10

Const MOUSEEVENTF_MIDDLEDOWN = &H20

Const MOUSEEVENTF_MIDDLEUP = &H40

Const MOUSEEVENTF_ABSOLUTE = &H8000

'模拟鼠标左键单击

oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

'模拟鼠标左键双击（即快速的两次单击）

oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

'模拟鼠标右键单击

oExcel.Run "mouse_event", MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0

'模拟鼠标中键单击

oExcel.Run "mouse_event", MOUSEEVENTF_MIDDLEDOWN + MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0

'关闭 Excel

oExcel.DisplayAlerts = False

oBook.Close

oExcel.Quit

---