SQL ConnectionString with IP ADDRESS

<appSettings>
 
 <add key="ConnectionStringsql" value="Server=103.245.119.115,1433;Network Library=DBMSSOCN;Initial Catalog=mydatabase;User Id=sa;Password=pass100;"/>
 
     </appSettings>

Copy system files - visual studio 2015

     

 My.Computer.FileSystem.CopyFile("c:\myfiles\test.txt", "z:\process\documents\test.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.UICancelOption.DoNothing)

view PDF document on a cell click on datagridview - visual studio 2015

//first of all load pdf reader from toolbox->addtab->choose items->com components

 Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
       
        Dim ofd As New OpenFileDialog
        ofd.Filter = "PDF| *.pdf"
        ofd.FileName = "z:\process\documents\" & DataGridView1.CurrentRow.Cells(1).Value 
         Me.AxAcroPDF1.LoadFile(ofd.FileName)
    End Sub

view a PDF document on button click in a Windows Form - Visual studio 2015

Me.AxAcroPDF1.LoadFile("C:\Temp\PDF_DemoFile_2.pdf")

VBA pdf export from excel

//developer tab for create button, alt+f11 for vba open

Sub PDFActiveSheet()
'www.contextures.com
'for Excel 2010 and later
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler

Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "yyyymmdd\_hhmm")

'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"

'replace spaces and periods in sheet name
strName = Replace(wsA.Name, " ", "")
strName = Replace(strName, ".", "_")

'create default name for savng file
strFile = strName & "_" & strTime & ".pdf"
strPathFile = strPath & strFile

'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strPathFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

'export to PDF if a folder was selected
If myFile <> "False" Then
    wsA.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    'confirmation message with file info
    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile
End If

exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

EXPORT TO EXCEL Visual Studio 2015

//go to project -> add reference -> Microsoft office 16.0 object library and Microsoft Excel Library

// Imports Excel = Microsoft.Office.Interop.Excel
// copy paste this code for EXPORT BUTTON

 Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim i As Integer
        Dim j As Integer

        xlApp = New Excel.Application
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("sheet1")


        For i = 0 To DataGridView1.RowCount - 2
            For j = 0 To DataGridView1.ColumnCount - 1
                For k As Integer = 1 To DataGridView1.Columns.Count
                    xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText
                    xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString()
                Next
            Next
        Next

        xlWorkSheet.SaveAs("C:\vbexcel.xlsx")
        xlWorkBook.Close()
        xlApp.Quit()

        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)

        MsgBox("You can find the file C:\vbexcel.xlsx")
    End Sub

    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub

Google Map as a background HTML

//copy and paste this code in your html page

<!DOCTYPE html>
<html>
<head>

    <title></title>
<meta charset="utf-8" />
 
<style type="text/css" >

    #googlemaps {
    height: 100%;
    width: 100%;
    position:absolute;
    top: 0;
    left: 0;
    z-index: 0; /* Set z-index to 0 as it will be on a layer below the contact form */
    }

    #contactform {
    position: relative;
    z-index: 1; /* The z-index should be higher than Google Maps */
    width: 250px;
    margin: 5px auto 0 770px;
    padding: 5px;
    background: coral;
    height: auto;
    opacity: .80;  /*Set the opacity for a slightly transparent Google Form*/
    color:white;
 
     text-align:center ;
    }

 </style>
</head>
<body>
    <div id="googlemaps"></div>
    <div id="contactform">
        <h2>NOIDA</h2>
     
            <p style="font-family:Calibri;">
            A-10 A, Sector – 68, Noida-201301,<br />
            District – Gautam Budh Nagar,<br />
            Uttar Pradesh, INDIA<br />
            +91-120-6759600<br />
            cylmktg@afflatusfravure.com<br />
        </p>
    </div>

</body>

</html>
<!--!-- Include the Google Maps API library - required for embedding maps -->
<script src="http://maps.googleapis.com/maps/api/js?sensor=false"></script>

<script type="text/javascript">

// The latitude and longitude of your business / place
    var position = [28.6046998, 77.3900557];

function showGoogleMaps() {

    var latLng = new google.maps.LatLng(position[0], position[1]);

    var mapOptions = {
        zoom: 16, // initialize zoom level - the max value is 21
        streetViewControl: false, // hide the yellow Street View pegman
        scaleControl: true, // allow users to zoom the Google Map
        mapTypeId: google.maps.MapTypeId.ROADMAP,
        center: latLng
    };

    map = new google.maps.Map(document.getElementById('googlemaps'),
        mapOptions);

    // Show the default red marker at the location
    marker = new google.maps.Marker({
        position: latLng,
        map: map,
        draggable: false,
        animation: google.maps.Animation.DROP
    });
}
google.maps.event.addDomListener(window, 'load', showGoogleMaps);

</script>

// you have to just change the co-ordinates

Find your co-ordinates here

Website CAREER FORM with send mail,attached resume and linked resume

Imports System.Data.OleDb
Imports System.Data
Imports System.Web.Configuration
Imports System.Web.UI.HtmlControls.HtmlGenericControl
Imports System.Web.HttpApplication
Imports System.Drawing
Imports System.Net.Mail

Dim mail As New MailMessage()
        mail.From = New MailAddress("" & txtemail.Text & "")
        mail.To.Add("kapil@afflatusgravure.com")

        Dim sb As New StringBuilder
        FileUpload1.SaveAs(Server.MapPath("~/RESUMES/") & FileUpload1.FileName)
        Dim file As String = (Server.MapPath("~/RESUMES/") & FileUpload1.FileName)
        sb.Append("<a href=" & file & ">" & txtname.Text & "_" & "RESUME</a>")
        mail.Subject = ddlist1.Text
        mail.Body = "Name:" & " " & txtname.Text & "<br/>" & "Mobile:" & " " & txtmobile.Text & "<br/>" & "E-Mail:" & " " & txtemail.Text & "<br/>" & "Date Of Birth:" & " " & txtdob.Text & " <br/>" & "Applied For:" & " " & ddlist1.Text & "<br/>" & "Qualification:" & " " & txtqualification.Text & "<br/>" & "Skills:" & " " & txtskills.Text & "<br/>" & "Experience:" & " " & txtexperience.Text & "<br/>" & "Remarks:" & " " & txtremarks.Text & "<br/>" & "Resume:" & " " & sb.ToString()


        mail.IsBodyHtml = True

 //if u want ATTACHED RESUME with mail

        'If Not file = "" Then
        '    Dim MsgAttach As New Attachment(file)
        '    mail.Attachments.Add(MsgAttach)
        'End If

  Dim smtp As New SmtpClient("103.245.119.210")
        smtp.Send(mail)

             Image1.Visible = True
        txtdob.Text = ""
        txtemail.Text = ""
        txtexperience.Text = ""
        txtmobile.Text = ""
        txtname.Text = ""
        txtqualification.Text = ""
        txtremarks.Text = ""
        txtskills.Text = ""

//FOR ACCEPT DOC/MSWORD ONLY with fileupload control

 If (
            FileUpload1.PostedFile.ContentType = "text/rtf" Or
        FileUpload1.PostedFile.ContentType = "application/doc" Or
        FileUpload1.PostedFile.ContentType = "appl/text" Or
         FileUpload1.PostedFile.ContentType = "application/vnd.msword" Or
         FileUpload1.PostedFile.ContentType = "application/vnd.ms-word" Or
         FileUpload1.PostedFile.ContentType = "application/winword" Or
         FileUpload1.PostedFile.ContentType = "application/word" Or
         FileUpload1.PostedFile.ContentType = "application/msword" Or
         FileUpload1.PostedFile.ContentType = "application/x-msw6" Or
         FileUpload1.PostedFile.ContentType = "application/x-msword"
            ) Then

Getting Information About Public users IP Location

Imports System.IO
Imports System.Net
Imports System.String


 Dim strClientIP As String
        strClientIP = Request.UserHostAddress()

        Dim strComputerName As String
        Dim host As System.Net.IPHostEntry
        host = System.Net.Dns.GetHostEntry(Request.ServerVariables.Item("REMOTE_HOST"))
        strComputerName = host.HostName

        Dim ExternalIP As String
        ExternalIP = (New WebClient()).DownloadString("http://checkip.dyndns.org/")
        ExternalIP = (New Regex("\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}")) _
                     .Matches(ExternalIP)(0).ToString()

        Dim FILENAME As String = Server.MapPath("IP.txt")
        Dim objStreamWriter As StreamWriter
        objStreamWriter = File.AppendText(FILENAME)
        objStreamWriter.WriteLine("External IP    :" & " " & ExternalIP)
        objStreamWriter.WriteLine("Computer Name  :" & " " & strComputerName)
        objStreamWriter.WriteLine("Local IP       :" & " " & strClientIP)
        objStreamWriter.WriteLine("Date & Time    :" & " " & DateTime.Now)
        objStreamWriter.WriteLine("-----------------------------------------------------")
        objStreamWriter.Close()
        Dim objStreamReader As StreamReader
        objStreamReader = File.OpenText(FILENAME)
        Dim contents As String = objStreamReader.ReadToEnd()
        objStreamReader.Close()

Disable Copy Text From Web Pages

// copy paste this script inside  head section of page OR contentplaceholder's head content

<script type="text/javascript">

function disableSelection(target){
if (typeof target.onselectstart!="undefined") //IE route
target.onselectstart=function(){return false}
else if (typeof target.style.MozUserSelect!="undefined") //Firefox route
target.style.MozUserSelect="none"
else //All other route (ie: Opera)
target.onmousedown=function(){return false}
target.style.cursor = "default"
}

</script>

//Then copy paste these scripts according usage inside body section OR contentplaceholder

<script type="text/javascript">
disableSelection(document.body) //disable text selection on entire body of page
</script>

<script type="text/javascript">
var somediv=document.getElementById("mydiv")
disableSelection(somediv) //disable text selection within DIV with id="mydiv"
</script>

<script type="text/javascript">
var alltables=document.getElementsByTagName("table")
for (var i=0; i<alltables.length; i++)
disableSelection(alltables[i]) //disable text selection within all tables on the page
</script>