Vb6 ปิดการคลิ๊กขวา และ Scroll ใน Webbrowser Control

เป็นการใช้ Function ใน Cafe.ocx เพื่อปิด ไม่ให้คลิ๊กขวาได้ใน Webbrowser Control

Function ที่จะนำมาใช้งาน คือ Hookwebbrowser และ UnHookwebbrowser

ตัวอย่างการใช้งานตามโค้ดด้านล่างนี้

Private Sub Form_Load()
LibCafe1.Hookwebbrowser
WebBrowser1.Navigate "http://oneintel.blogspot.com"
End Sub

Private Sub Form_Unload(Cancel As Integer)
LibCafe1.UnHookwebbrowser
End Sub

หากทำไม่ให้คลิ๊กขวา แล้ว ไม่อยากให้ โชว์  Scroll ิ ตาม แนวขอบของ Control

ให้เพิ่มโค็ดนี้ลงไปตรง DocumentComplete(ByVal pDisp As Object, URL As Variant)

โดยการคลิ๊กที่ ตัว Control ของเรา แล้วเลือกตรงช่อง  Procedure


ตัวอย่างเช่น


Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Scroll = "no" 'ชื่อ Control ตามด้วย Document.body.Scroll = "no"
End Sub


ดูรูปภาพ ตัวอย่าง การใช้งาน โค้ดนี้ กับการไม่ใช้งาน ครับ

ก่อนการใส่โค้ดนี้

หลังการใส่โค้ดนี้

Visual Basic 2008 And Registry vb2008 ทำงานร่วมกับ Registry ใน Window

Visual Basic 2008 ทำงานร่วมกับ Registry ใน Windows

สามารถนำไปประยุกต์ใช้งานในการ อ่าน เขียน Registry Editor ใน Windows 


เช่นการอ่าน Path ติดตั้งโปรแกรมต่างๆ ส่วนมากจะเก็บไว้ใน Registry


ดังตัวอย่างต่อไปนี้ อ่านค่า Path ติดตั้งเกมส์ SPECIAL FORCE 


Imports Microsoft.Win32 ตรงส่วนหัวก่อน

การใช้งาน Registry.GetValue(keyName ,valueName ,defaultValue)

ตัวอย่างการใช้งาน

Imports System
Imports Microsoft.Win32
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim regread As String = Registry.GetValue("HKEY_CURRENT_USER\Software\Dragonfly\SpecialForce", "InstallPath", String.Empty)
        MsgBox(regread)
    End Sub
End Class

การเขียนค่าลงใน Registry

การใช้งาน Registry.SetValue(keyName ,valueName ,value)

ตัวอย่างการใช้งาน

Imports System
Imports Microsoft.Win32
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Registry.SetValue("HKEY_CURRENT_USER\Software\Dragonfly\SpecialForce\", "InstallPath2", "555")

    End Sub
End Class

Vb6 Command Line parameter สั่ง Program ทำงานตาม Command

การใส่ Command Line parameter ให้กับโปรแกรมที่เราเขียนขึ้น สามารถออกแบบแล้วนำไปประยุกในการเขียนโปรแกรมได้หลากหลายแนว

ตัวอย่างการสั่งทำงานโปรแกรมแบบมี Command Line parameter

เช่น test.exe starttest เพราะฉะนั้นถ้าเราจะสั่งให้โปรแกรมทำงาน ตาม เคส ที่เราต้องการ เราจะสั่งให้ทำงานใน โหมด GUI แบบ ปกติไม่ได้
เราต้องใช้ โปรแกรม Command Line ช่วย โปรแกรม Command Line ใน Windows ก็คือ Cmd.exe เลยครับ เปิดขึ้นมา แล้วสั่งโปรแกรมให้ทำงาน

ก็แบบนี้ test.exe starttest

หรือสำหรับท่านที่เป็นโปรแกรมเมอร์ ถ้าจะเขียนโปรแกรมสั่งให้ทำงานโปรแกรมแบบ Command ก็ใช้ Shell, Shellexcute , หรือ .net ก็ StartProcess();


ลองมาดู Src กัน ใน VB6 นะครับ

Private Sub Form_Initialize()

  if command =  "starttest " thenmsgbox"คุณใช้ Command <starttest>"
elseif  command =  "stoptest " thenmsgbox"คุณใช้ Command <stoptest>" elsemsgbox"คุณไม่ได้สั่งทำงานด้วย Command"msgbox"โปรแกรมจะปิดละนะครับ 555+"
endend if

End Sub

ลอง Build แล้วเอามาสั่งทำงานแบบปกติดู แล้วลองใช้ Cmd สั่งทำงานดู


app.exe starttest

C++ GetUsername & GetComputerName Api ใน Windows เพื่อหาค่า Username และ Computername

C++ GetUsername & GetComputerName


เป็นการใช้  Api ใน Windows เพื่อหาค่า Username และ Computername

GetUsername
BOOL WINAPI GetUserName(
…__out    LPTSTR lpBuffer,
…__inout  LPDWORD lpnSize
);

GetComputerName
BOOL WINAPI GetComputerName(
…__out    LPTSTR lpBuffer,
…__inout  LPDWORD lpnSize
);

Example :

char lpszUsername[255];
DWORD dUsername = sizeof(lpszUsername);

if(GetUserName(lpszUsername, &dUsername)){
…printf(“Username: %s\n”, lpszUsername);
}




char lpszComputer[255];
DWORD dComputer = sizeof(lpszComputer);

if(GetComputerName(lpszComputer, &dComputer)){
…printf(“Computername: %s\n”, lpszComputer);
}

[Source Code ]Get Start Address

เป็น โค้ดหาค่า Address เริ่มต้นของโปรแกรม ที่อยู่ใน Memory
http://pastebin.com/MR3XLSd0