- 博客(0)
- 资源 (3)
- 收藏
- 关注
asp.net调用RAR实现文件压缩与解压缩图文代码
如果服务器上安装了RAR程序,那么asp.net可以调用RAR实现文件压缩与解压缩。
不过要注意的是,由于Web程序不能直接调用客户端的程序(除非用ActiveX,ActiveX几乎被废弃),所以如果要想实现让用户把本地文件用网页解压缩只有把文件上传到服务器上再调用服务器上的RAR压缩,同理要解压缩本地的RAR文件可以把文件上传到服务器解压再拿回来。
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.IO;
using System.Runtime.InteropServices;
using Microsoft.Win32;
using System.Diagnostics;
public partial class _Default : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
//清清月儿 http://blog.csdn.net/21aspnet/
}
protected void Button1_Click(object sender, EventArgs e)
{
//压缩
String the_rar;
2017-06-09
WebbrowserEx模仿IE实例源码
WebbrowserEx模仿IE实例源码
Private WithEvents mobjWebDoc As MSHTML.HTMLDocument
Private WithEvents MouseEvent As CMouseHook
Private WithEvents KeyboardEvent As CKeyboardHook
Private WithEvents frmTopParent As VB.Form
Private m_Documents As Collection 'HTML Documents collection
Private m_Frames As Collection 'HTML Frames collection
'-------------------------------------------------------------------------------
' Webbrowser naviagtion events
'-------------------------------------------------------------------------------
'
Event IntializeBeforeGoHome(Cancel As Boolean)
Event StatusTextChange(ByVal Text As String)
Event TitleChange(ByVal Text As String)
Event NewDocumentStart(ByVal WebDoc As HTMLDocument, ByVal URL As String, ByVal IsTargetedToFrame As Boolean, ByVal TargetFrameName As String, Cancel As Boolean)
Event NewDocumentComplete(ByVal WebDoc As HTMLDocument, ByVal URL As String, ByVal IsTargetedToFrame As Boolean, ByVal TargetFrameName As String)
Event BeforeNavigate2(ByVal WebDoc As HTMLDocument, ByVal URL As String, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Event NavigateComplete2(ByVal WebDoc As HTMLDocument, ByVal URL As String)
Event DocumentComplete(ByVal WebDoc As HTMLDocument, ByVal URL As String)
Event BeforeNewWindow2(ByVal URL As String, NewBrowser As Object, Cancel As Boolean)
'-------------------------------------------------------------------------------
' User control-wide mouse events
'-------------------------------------------------------------------------------
'
Event UserControlMouseUp(ByVal Control As Object, ByVal HWnd As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, Cancel As Boolean)
Event UserControlMouseMove(ByVal Control As Object, ByVal HWnd As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, Cancel As Boolean)
Event UserControlMouseDown(ByVal Control As Object, ByVal HWnd As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, Cancel As Boolean)
'-------------------------------------------------------------------------------
' WebBrowser mouse events
'-------------------------------------------------------------------------------
'
Event WebBrowserDblClick(Cancel As Boolean)
Event WebBrowserMouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single, Cancel As Boolean)
Event WebBrowserMouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single, Cancel As Boolean)
Event WebBrowserMouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single, Cancel As Boolean)
Event WebBrowserMouseDownContextMenu(ByVal IsMouseOnLink As Boolean, ByVal URL As String, ByVal SelText As String, Cancel As Boolean)
Event WebBrowserMouseUpContextMenu(ByVal IsMouseOnLink As Boolean, ByVal URL As String, ByVal SelText As String, Cancel As Boolean)
'-------------------------------------------------------------------------------
' WebBrowser keyboard events
'-------------------------------------------------------------------------------
'
Event WebBrowserKeyDown(KeyCode As Integer, Shift As Integer)
Event WebBrowserKeyUp(KeyCode As Integer, Shift As Integer)
'-------------------------------------------------------------------------------
' Go button keyboard events
'-------------------------------------------------------------------------------
'
Event GoButtonKeyDown(KeyCode As Integer, Shift As Integer)
Event GoButtonKeyUp(KeyCode As Integer, Shift As Integer)
'-------------------------------------------------------------------------------
' Address bar keyboard events (combo box)
'-------------------------------------------------------------------------------
'
Event AddressBarContextMenu(Cancel As Boolean)
Event AddressBarKeyDown(KeyCode As Integer, Shift As Integer)
Event AddressBarKeyUp(KeyCode As Integer, Shift As Integer)
'-------------------------------------------------------------------------------
' Statusbar keyboard events
'-------------------------------------------------------------------------------
'
Event StatusBarKeyDown(KeyCode As Integer, Shift As Integer)
Event StatusBarKeyUp(KeyCode As Integer, Shift As Integer)
'-------------------------------------------------------------------------------
' Statusbar mouse events
'-------------------------------------------------------------------------------
'
Event StatusBarPanelClick(Panel As MSComctlLib.Panel)
Event StatusBarPanelDblClick(Panel As MSComctlLib.Panel)
Event StatusBarMouseMove(Panel As MSComctlLib.Panel, Button As Integer, Shift As Integer, X As Single, Y As Single)
Event StatusBarMouseDown(Panel As MSComctlLib.Panel, Button As Integer, Shift As Integer, X As Single, Y As Single)
Event StatusBarMouseUp(Panel As MSComctlLib.Panel, Button As Integer, Shift As Integer, X As Single, Y As Single)
Private mstrStatusText As String 'Webrrowser status text
Private mlngWBHwnd As Long 'Webbrowser handle
Private mHwndComboEdit As Long 'Combo edit box handle
Private mobjTopParent As VB.Form 'Reference to Top parent form
Private mbRunMode As Boolean 'Run/Develope mode detection variable
Private newX As Single 'Variables that contained the converted x, y coordinates
Private newY As Single
Private mhwndTopParent As Long 'Top parent form handle
Private mstrClickedLinkURL As String 'Click-on url
Private mstrNavigate2URL As String 'Navigation start url
Private mstrNavigatedURL As String 'Navigated url
Private mstrTargetFrameName As String 'Naviation target frame
Const m_def_PopupWindowAllowed = True
Const m_def_OpenHomePageAtStart = True
Const m_def_AddressBarVisible = True
Const m_def_StatusBarVisible = True
Const m_def_MouseEventEnabled = True
Const m_def_KeyboardEventEnabled = True
Private m_AddressBarVisible As Boolean
Private m_PopupWindowAllowed As Boolean
Private m_OpenHomePageAtStart As Boolean
Private m_StatusBarVisible As Boolean
Private m_MouseEventEnabled As Boolean
Private m_KeyboardEventEnabled As Boolean
'-------------------------------------------------------------------------------
' TopParent
'-------------------------------------------------------------------------------
' Get the top parent form of the user control
Public Property Get TopParent() As Object
On Error Resume Next
If mobjTopParent Is Nothing Then
Dim objParent As Object
Set objParent = UserControl.Parent
Do While Not TypeOf objParent Is VB.Form
Set objParent = objParent.Parent
Loop
Set mobjTopParent = objParent
Set objParent = Nothing
End If
Set TopParent = mobjTopParent
End Property
2012-08-28
vb6_Webbrowser控件使用技巧
vb6_Webbrowser控件使用技巧
1、获得浏览器信息:
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.applevb.com"
End Sub
Private Sub Command2_Click()
Dim oWindow
Dim oNav
Set oWindow = WebBrowser1.Document.parentWindow
Set oNav = oWindow.navigator
Debug.Print oNav.userAgent
Set oWindow = Nothing
Set oNav = Nothing
End Sub
点击Command1浏览网页,点击Command2在立即窗口中输出浏览器信息。
2、弹出Webbrowser消息窗口
Dim oWindow
Set oWindow = WebBrowser1.Document.parentWindow
oWindow.confirm "abcd"
VB调用webbrowser技巧集2
向Webbrowser中写入HTML内容的几种方法
2012-08-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人