vb.net 软件打包 vb.net程序打包
摘要:【vb软件下载】VB NET软件下载请问有VB NET中文版的软件下载地址 方法一:调用api 在Visual Baisc net中的声明: Declare Sub mouse_event Lib...
发布日期:2021-04-27【vb软件下载】VB.NET软件下载请问有VB.NET中文版的软件下载地址...
方法一:调用api 在Visual Baisc.net中的声明: Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Public Const MOUSEEVENTF_LEFTDOWN = &H2 "模拟鼠标左键按下 Public Const MOUSEEVENTF_LEFTUP = &H4 "模拟鼠标左键释放 Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 "模拟鼠标中间键按下 Public Const MOUSEEVENTF_MIDDLEUP = &H40 "模拟鼠标中间键释放 Public Const MOUSEEVENTF_RIGHTDOWN = &H8 "模拟鼠标右键按下 Public Const MOUSEEVENTF_RIGHTUP = &H10 "模拟鼠标右键释放 Public Const MOUSEEVENTF_MOVE = &H1 "模拟鼠标指针移动 例:mouse_event MOUSEEVENTF_LEFTDOWN,10,10,0,0 "在(10,10)模拟鼠标左键按下 方法二:namespace ClassLibrary.Hardware { public class Mouse { internal const byte SM_MOUSEPRESENT = 19; internal const byte SM_CMOUSEBUTTONS = 43; internal const byte SM_MOUSEWHEELPRESENT = 75; internal struct POINTAPI { internal int x; internal int y; } internal struct RECT { internal int left ; internal int top ; internal int right ; internal int bottom ; } [System.Runtime.InteropServices.DllImport("user32.dll" , EntryPoint="SwapMouseButton")] internal extern static int SwapMouseButton ( int bSwap ); [System.Runtime.InteropServices.DllImport("user32" , EntryPoint="ClipCursor")] internal extern static int ClipCursor(ref RECT lpRect); [System.Runtime.InteropServices.DllImport( "user32.dll" , EntryPoint="GetCursorPos" )] internal extern static int GetCursorPos( ref POINTAPI lpPoint ); [System.Runtime.InteropServices.DllImport("user32.dll", EntryPoint="ShowCursor")] internal extern static bool ShowCursor ( bool bShow ) ; [System.Runtime.InteropServices.DllImport( "user32.dll" , EntryPoint = "EnableWindow" )] internal extern static int EnableWindow( int hwnd , int fEnable ); [System.Runtime.InteropServices.DllImport("user32.dll" , EntryPoint="GetWindowRect")] internal extern static int GetWindowRect( int hwnd , ref RECT lpRect ) ; [System.Runtime.InteropServices.DllImport("user32.dll" , EntryPoint="SetCursorPos")] internal extern static int SetCursorPos ( int x , int y ) ; [System.Runtime.InteropServices.DllImport("user32.dll" , EntryPoint="GetSystemMetrics")] internal extern static int GetSystemMetrics( int nIndex ); [System.Runtime.InteropServices.DllImport("user32.dll" , EntryPoint="SetDoubleClickTime")] internal extern static int SetDoubleClickTime ( int wCount ); [System.Runtime.InteropServices.DllImport("user32.dll" , EntryPoint="GetDoubleClickTime")] internal extern static int GetDoubleClickTime() ; [System.Runtime.InteropServices.DllImport("kernel32.DLL", EntryPoint="Sleep")] internal extern static void Sleep ( int dwMilliseconds ) ; //得到鼠标相对与全屏的坐标,不是相对与你的Form的,且与你的分辨率有关系 public static int FullScreenPosition_X { get { POINTAPI _POINTAPI = new POINTAPI(); GetCursorPos ( ref _POINTAPI ); return _POINTAPI.x; } } public static int FullScreenPosition_Y { get { POINTAPI _POINTAPI = new POINTAPI(); GetCursorPos ( ref _POINTAPI ); return _POINTAPI.y; } } // 隐藏 显示 鼠标 public static void Hide() { ShowCursor( false ) ; } public static void Show() { ShowCursor( true ) ; } // 将鼠标锁定在你的Form里 不过你得将你的Form先锁了,Form Resize 就失效了 public static void Lock( System.Windows.Forms.Form ObjectForm ) { RECT _FormRect = new RECT (); GetWindowRect( ObjectForm.Handle.ToInt32() , ref _FormRect ); ClipCursor( ref _FormRect ); } public static void UnLock() { RECT _ScreenRect = new RECT (); _ScreenRect.top = 0; _ScreenRect.left = 0; _ScreenRect.bottom = System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Bottom; _ScreenRect.right = System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Right; ClipCursor( ref _ScreenRect ); } // 鼠标失效,不过失效的好像不只是鼠标,小心哦 public static void Disable( System.Windows.Forms.Form ObjectForm ) { EnableWindow( ObjectForm.Handle.ToInt32() , 0 ) ; } public static void Enable( System.Windows.Forms.Form ObjectForm ) { EnableWindow( ObjectForm.Handle.ToInt32() , 1 ) ; } // 鼠标自己移动 很想动画哦 参数是2个控件的handle // 看这个方法前,先用凉水擦把脸。
。
。
反正我写的时候 头晕 public static void Move ( int From_Handle_ToInt32 , int To_Handle_ToInt32 ) { RECT rectFrom = new RECT () ; RECT rectTo = new RECT () ; int i ; GetWindowRect( From_Handle_ToInt32 , ref ...
vb.net编写的软件如何能够在其他电脑上运行?
那台机器需要安装相应版本的 Framework windows2003已经默认安装 .net Framework 1.1任何一款软件的运行都是要有其开发所用的运行库.而到.net中这个叫做框架,而基于.net制作的应用程序是需要这个.net的框架 来支持.所以相应运行的机器也要安装这个框架 -.net Framework.如果还有什么问题欢迎大家来我得网站讨论www.bg1jt.com/bbs/
用VB.NET编写的程序反要安装的问题小弟用VB.NET编写了一
PivateDeclaeFunctionGetWindowsDiectoyLi"kenel32"_Alias"GetWindowsDiectoyA"_(ByVallpBuffeAsSting,ByValnSizeAsLong)AsLongPivateSuFom_Load()OnEoGotoBaddUnDimX&DimuffeAsSting*128DimUnStAsStingDimsizeAsIntegeDimetvalAsIntegeuffe=Space$(128)size=128etval=GetWindowsDiectoy(ByValuffe,ByValsize)Me.Caption=uffe"以下的程序代码必须编写在同一行中""""""""""""""""""""""""""""""""""""""""UnSt=Me.Caption&"\ST5UNST.EXE-n"&Ch(34)&App.Path&"\ST5UNST.LOG"&Ch(34)"""""""""""""""""""""""""""""""""""""""""MsgBoxUnSt"可显示可不显示,只是测试用"X&=Shell("C:\WINDOWS\ST5UNST.EXE-n"""C:\PogamFiles\AppName\ST5UNST.LOG"""",vNomalFocus)X&=Shell(UnSt,vNomalFocus)UnloadMeExit "fosomeeasonUnInstallcannotun."ExitSuEndSu
...软件开发常用编程语言有哪些C、VC++、VB、VC++.NET、
C C++ 玩熟了足以应付各种场合~~~~~ java在游戏,网页,手机等领域应用广泛 汇编基础语言,驱动层的开发会用到。
。
。
车辆工程硕士?那我个人觉得 汇编 C 比较有用吧~~~ 你想 车辆 智能化是趋势~~~而汇编帮大架构建一个与硬件交流的平台, C 可以开发更多的应用~~~
vb.net是面向对象的编程软件吗
Imports System.IOImports System.IO.Directory" ======================================================" 实现一个静态方法将指定文件夹下面的所有内容del" 如果目标文件夹为只读属性就会报错。
" ======================================================Public Shared Sub DelDir(ByVal srcPath As String, ByVal aimPath As String)Try" 检查目标目录是否以目录分割字符\结束,如果不是则添加之If aimPath(aimPath.Length - 1) Path.DirectorySeparatorChar ThenaimPath += Path.DirectorySeparatorCharEnd If"判断源目录是否存在,不存在则退出.If (Not Directory.Exists(srcPath)) Then Exit Sub" 判断目标目录是否存在如果不存在则新建之If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath)" 得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组Dim fileList() As String = Directory.GetFileSystemEntries(srcPath)" 遍历所有的文件和目录For Each FileName As String In fileList" 先当作目录处理如果存在这个目录就递归Copy该目录下面的文件If Directory.Exists(FileName) Then" 直接Delete文件File.Delete(aimPath + Path.GetFileName(FileName))end ifNextCatch ex As ExceptionMessageBox.Show(ex.ToString())End TryEnd Sub然后你定义一个timer设定循环时间,时间到则调用这个即可