<table width="760" border="0" align=center cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="150" class="light-orange"> </td><td width="10" class="light-orange"></td><td width="150" class="tabdata"> </td><td width="10"> </td><td width="440" class="tabdata"> </td></tr></table><table width="760" border="0" align=center cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="160" height="42" class="black"> </td><td width="160" class="orange"> </td><td width="440" class="orange">
<INPUT TYPE="HIDDEN" NAME="BridgeFlag" VALUE="0"><INPUT TYPE="BUTTON" NAME="SaveBtn" VALUE="SAVE" onClick="uiSave()" class="sbutton"><INPUT TYPE="BUTTON" NAME="DeleteBtn" VALUE="DELETE" onClick="doDelete()"></td></tr></table></div><INPUT TYPE="HIDDEN" NAME="wanIGMPQitFlag" VALUE="0"><INPUT TYPE="HIDDEN" NAME="wan_PVCO_Flag" VALUE="0"><INPUT TYPE="HIDDEN" NAME="PageLockValue" VALUE="0"></form><script language="javascript" src="/basic/tc2wanfun.js"></script><INPUT TYPE="BUTTON" NAME="SaveBtn" VALUE="SAVE" onClick="uiSave()" class="sbutton">WebBrowser1.Document.GetElementById("SaveBtn").InvokeMember("onclick") txtMovie.Text = ""
System.Diagnostics.Process.Start("rundll32.exe", "InetCpl.cpl,ClearMyTracksByProcess 8")
WebBrowser1.DocumentText = Nothing
WebBrowser1.Navigate(New Uri(GlobalVars.newMovieData & txtMovie.Text))
WebBrowser1.Refresh(WebBrowserRefreshOption.Completely)Dim pdfinbrowser As newLabelForm = New newLabelForm
Dim fullpath As String = Path.Combine(tempdir, filename)
pdfinbrowser.displayPDFFile = fullpath
MsgBox(fullpath)
pdfinbrowser.Show()Public Class newLabelForm
Private pdfpath As String = ""
Public WriteOnly Property displayPDFFile As String
Set(value As String)
pdfpath = value
End Set
End Property
Private Sub pdfdisplay_Load(sender As Object, e As EventArgs) Handles MyBase.Load
pdfBrowser.Navigate(pdfpath)
End Sub
End Class Dim ds As New DataSet1
Dim dt As DataTable = ds.Tables(0)
If Cn.State = 1 Then Cn.Close()
If Rs.State = 1 Then Rs.Close()
Cn.Open(constr)
Rs.Open("Select * From tbltemp", Cn, 1, 2)
For x = 0 To Rs.RecordCount - 1
Dim r As DataRow = dt.NewRow()
r("itemcode") = Rs.Fields("itemcode").Value
r("itemname") = Rs.Fields("itemname").Value
r("itemunit") = Rs.Fields("itemunit").Value
r("itemsize") = Rs.Fields("itemsize").Value
r("itemqnt") = Rs.Fields("itemqnt").Value
r("reqdate") = Format(Rs.Fields("reqdate").Value, "dd/MM/yyyy")
r("ava1") = Rs.Fields("ava1").Value
r("ava2") = Rs.Fields("ava2").Value
r("rejust") = Rs.Fields("rejust").Value
Rs.MoveNext()
dt.Rows.Add(r)
Next
Rs.MoveFirst()
frmreport.ReportViewer1.LocalReport.DataSources.Clear()
frmreport.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", ds.Tables(0))) frmreport.ReportViewer1.SetDisplayMode(Microsoft.Reporting.WinForms.DisplayMode.PrintLayout)
frmreport.ReportViewer1.RefreshReport()
Cn.Close()
frmreport.Show()Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim regkey As Microsoft.Win32.RegistryKey
Dim Keyname As String = "SOFTWARE\Microsoft\Windows*\CurrentVersion\Run" 'Registrypath
Dim ValueName As String = Application.ProductName 'Program name
Dim Value As String = Application.ExecutablePath
'Create Startup
regkey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(Keyname, True)
regkey.SetValue(ValueName, Value, RegistryValueKind.String)
End Sub
End ClassOption Explicit On
Imports System.IO
Imports System.Net.Sockets
Public Class Form1
Dim Listener As New TcpListener(8000)
Dim Client As TcpClient
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
Listener.Start()
End Sub
Private Sub _FormClosing() Handles Me.FormClosing
Listener.Stop()
End Sub
Private Sub _Tick() Handles Timer1.Tick
Dim Message As String
If Listener.Pending = True Then
Message = ""
Client = Listener.AcceptTcpClient()
Dim Reader As New StreamReader(Client.GetStream())
While Reader.Peek > -1
Message &= Convert.ToChar(Reader.Read()).ToString
End While
rtf.Text += Message + vbCrLf
End If
End Sub
Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
If txtSend.Text = "" Then Exit Sub
Try
Client = New TcpClient("192.168.1.67", 8000)
Dim Writer As New StreamWriter(Client.GetStream())
Writer.Write("BOT: " & txtSend.Text)
Writer.Flush()
rtf.Text += ("BOT: " & txtSend.Text) + vbCrLf
txtSend.Text = ""
Catch ex As Exception
Console.WriteLine(ex)
Dim Errorresult As String = ex.Message
MessageBox.Show(Errorresult & vbCrLf & vbCrLf & _
"Please Review Client Address", _
"Error Sending Message", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class