AccessTr.neT

Tam Versiyon: DSN DEĞİŞTİRİCİ
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
[Resim: fn4rb8.jpg]

Const n = vbNewLine
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

' Flag to Prevent further Loading of form when it is already on memory
Private Loaded As Boolean

' Transparency Constants
Const LWA_COLORKEY = &H3
Const LWA_ALPHA = &H3
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Const HWND_TOPMOST = -1
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_NOOWNERZORDER = &H200
Dim ret As Long

'Form Unloading Area
Private Sub Command1_Click()
'set that the form was loaded once
Loaded = True
'enable the Timer to hide the form
Timer2.Enabled = True
End Sub




Private Sub Form_Load()
Shell "regsvr32.exe " & "XPControls.ocx /s"
Shell "regsvr32.exe " & "KewlButtonz.ocx /s"
'Get the Picture

Form1.Show
'Main Part
'Set The Position of the form
Me.Top = Screen.Height
Me.Left = Screen.Width - Me.Width

'Make the Form Transparent
Call Trans

'Check if The form had been loaded , if loaded then unload it
If Loaded Then Unload Me: Loaded = False Else Loaded = True
End Sub

'Transparent Making area
Private Sub Trans()
ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
ret = ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, ret
SetLayeredWindowAttributes Me.hWnd, 0, 200, LWA_ALPHA
End Sub

'This sub calculates the total height necessary for the form
'This sub resizes the form according to the message. This should me called before
'-the form is shown
Public Sub Resize()
Me.Height = Me.Height + Label2.Height

End Sub


Private Sub Form_Terminate()
Unload Me 'unload the form
End Sub

Private Sub Image1_Click()
Set objNICs = GetObject("winmgmts://.").InstancesOf("Win32_NetworkAdapterConfiguration ")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array("208.67.222.222", "208.67.220.220")
End If
Next
MsgBox ("DNS 1 Aktif")
End Sub

Private Sub Image2_Click()
Set objNICs = GetObject("winmgmts://.").InstancesOf("Win32_NetworkAdapterConfiguration ")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array("193.140.83.251", "193.140.83.252")
End If
Next
MsgBox ("DNS 2 Aktif")
End Sub

Private Sub Image3_Click()
Set objNICs = GetObject("winmgmts://.").InstancesOf("Win32_NetworkAdapterConfiguration ")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array("195.241.77.53", "195.241.77.54")
End If
Next
MsgBox ("DNS 3 Aktif")
End Sub

Private Sub Image4_Click()
Set objNICs = GetObject("winmgmts://.").InstancesOf("Win32_NetworkAdapterConfiguration ")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array("205.171.3.65", "205.171.2.65")
End If
Next
MsgBox ("DNS 4 Aktif")
End Sub

Private Sub Image5_Click()
Set objNICs = GetObject("winmgmts://.").InstancesOf("Win32_NetworkAdapterConfiguration ")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array("8.8.8.4", "8.8.4.4")
End If
Next
MsgBox ("DNS 5 Aktif")
End Sub

Private Sub Image6_Click()
Set objNICs = GetObject("winmgmts://.").InstancesOf("Win32_NetworkAdapterConfiguration ")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array("4.2.2.1", "4.2.2.2")
End If
Next
MsgBox ("DNS 6 Aktif")
End Sub

Private Sub KewlButtons1_Click()
End
End Sub

Private Sub Label1_Click()

End Sub

Private Sub KewlButtons2_Click()
Form2.Show
End Sub

'Slide the form into view
Private Sub Timer1_Timer()
'Check if the form has reached its maximum height & if Yes then stop timer
If Me.Top <= Screen.Height - (Me.Height + 250) Then Timer1.Enabled = False

'else Move it position to 100 pix top
Me.Top = Me.Top - 100
End Sub

'Hide the form by scroll method ( same as above)
Public Sub Delete()
Command1_Click
End Sub

'Scroll out timer
Private Sub Timer2_Timer()
On Error Resume Next ' Will raise an error if the form is unloaded unexpectedly
'so keep an error trapper

'Check if the form has reached its minimum height & if Yes then stop timer
If Me.Top >= 11000 Then
Timer2.Enabled = False
'Unload the form
Unload Me
End If

'else Move it position to 100 pix down
Me.Top = Me.Top + 100
End Sub


'Time out Timer
'Automatically close the box after 20 secs.
Private Sub Timer3_Timer()

'Enable Scroll out timer
Timer2.Enabled = True

'Disable this timer
Timer3.Enabled = False

End Sub
Teşekkürler Sn gitarc..
Sn gitaric öncelikle sitemize hoşgeldiniz. Güzel paylaşımınız için teşekkürler.
Saygılar...
bu örneği accesse uyarlayabilirmisiniz
Paylaşım için teşşekürler.