<System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
Protected Overrides Sub WndProc(ByRef WMSG As Message)
Select Case (WMSG.Msg)
Case WM_UOA_SKILL_LEVEL
txtLog.AppendText(String.Format("スキル値変動 No:{1} Value:{2}{0}", vbCrLf, WMSG.WParam, WMSG.LParam))
End Select
MyBase.WndProc(WMSG)
End Sub
Private Sub btnGetSkillDisplay_Click(sender As System.Object, e As System.EventArgs) Handles btnGetSkillDisplay.Click
Dim Result As Integer
For i As Integer = 0 To 100
Result = UOALink_GetSkillDisplay(i)
If (Result = -1) Then Exit For
txtLog.AppendText(String.Format("SkillDisplay No:{1} Value:{2}{0}", vbCrLf, i, Result))
Next
End Sub
Private Sub btnGetSkillBased_Click(sender As System.Object, e As System.EventArgs) Handles btnGetSkillBased.Click
Dim Result As Integer
For i As Integer = 0 To 100
Result = UOALink_GetSkillBased(i)
If (Result = -1) Then Exit For
txtLog.AppendText(String.Format("SkillBased No:{1} Value:{2}{0}", vbCrLf, i, Result))
Next
End Sub
Private Sub btnGetSkillLock_Click(sender As System.Object, e As System.EventArgs) Handles btnGetSkillLock.Click
Dim Result As Integer
For i As Integer = 0 To 100
Result = UOALink_GetSkillLock(i)
If (Result = -1) Then Exit For
txtLog.AppendText(String.Format("SkillLock No:{1} Value:{2}{0}", vbCrLf, i, Result))
Next
End Sub
Private Sub btnGetSkillName_Click(sender As System.Object, e As System.EventArgs) Handles btnGetSkillName.Click
Dim Result As Integer
Dim Buf As String
For i As Integer = 0 To 100
Result = UOALink_GetSkillName(i)
If (Result = -1) Then Exit For
Buf = fncGetAtomString(Result)
txtLog.AppendText(String.Format("SkillName No:{1} Value:{2}{0}", vbCrLf, i, Buf))
Next
End Sub
Private Sub btnMessageCheck_Click(sender As System.Object, e As System.EventArgs) Handles btnMessageCheck.Click
Dim Result As Integer
Dim WM As Integer = CInt(Me.txtWM.Text)
Dim WPARAM As Integer = CInt(Me.txtWPARAM.Text)
Dim LPARAM As Integer = CInt(Me.txtLPARAM.Text)
Result = UOALink_SendMessage(WM_USER + WM, WPARAM, LPARAM)
txtLog.AppendText(String.Format("WM Check WM:{1} WPARAM:{2} LPARAM:{3} RESULT:{4}{0}", vbCrLf, WM, WPARAM, LPARAM, Result))
End Sub
