Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
ClipBoard.GetImage.save("d:\test.jpg")
PopMessage("保存到了d盘","提示",PopIconEnum.OK,1)
' msgbox("保存到了d盘")
ClipBoard.SetText("d:\test.jpg")
End If
'上传填写到表格
Dim ftp1 As New FtpClient
ftp1.Host="120.79.56.106"
ftp1.Account = "ftpuser"
ftp1.Password = "qwe123,."
If ftp1.Upload("d:\test.jpg","\web文件管理器\test.jpg")= True Then
If ftp1.FileExists("test.jpg") Then
ftp1.Rename("d:\test.jpg","\web文件管理器\test1.jpg")
End If
PopMessage("上传完成","提示",PopIconEnum.OK,2)
' Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Dim r As Row = Tables("平台合伙人订单数据").current
Dim ls = r.DataRow.Lines("财务支出_上传支出凭据")
' ls.add("/test.jpg")
ls.add("/web文件管理器/test.jpg")
r.DataRow.Lines("财务支出_上传支出凭据")= ls
Else
PopMessage("上传失败","提示",PopIconEnum.Error,2)
' Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
加好友 
发短信
Post By：2018/3/8 14:35:00 [显示全部帖子]
此主题相关图片如下：qq截图20180308143453.png
