Guten Tag Zusammen,
wenn ich bei mir auf einen Button klicke, wird eine Methode aufgerufen, welche eine Datei signiert. Nun sieht der ButtonClick in etwa so aus:
"ButtonClick"
Das Ding ist aber, wenn ich auf den Button geklickt habe, startet er sofort den Methodenaufruf:
setzt aber nicht die beiden Controls vorher auf True:
Die Application verhält sich auch so, dass sie quasi einfriert, solange die Methode "mobjCodeSigner.SignCode" läuft.
SignCode sieht so aus:
"CodeSigner Methode"
Kann das von euch jemand etwas aufklären? Danke euch!
wenn ich bei mir auf einen Button klicke, wird eine Methode aufgerufen, welche eine Datei signiert. Nun sieht der ButtonClick in etwa so aus:
VB.NET-Quellcode
- Try
- Dim strCertPassword As String = txtBxCertPassword.Text
- Dim blnSuccessCheck As Boolean
- If String.IsNullOrEmpty(txtBxFilePath.Text) Then
- MessageBox.Show("File is missing. Please browse to your file.")
- ElseIf String.IsNullOrEmpty(txtBxCertPassword.Text) Then
- MessageBox.Show("Certificate Password cannot be empty.")
- Else
- lblSigingInProgress.Visible = True
- pbSigningInProgress.Visible = True
- blnSuccessCheck = mobjCodeSigner.SignCode(mstrSafeFilePath, mstrCertfilePath, strCertPassword, mstrFileName)
- If blnSuccessCheck = True Then
- lblSuccessfullySigned.Visible = True
- pbSuccessfullySigned.Visible = True
- lblSigingInProgress.Visible = False
- pbSigningInProgress.Visible = False
- btnSignFile.Enabled = False
- ElseIf blnSuccessCheck = False Then
- lblSigingInProgress.Visible = False
- pbSigningInProgress.Visible = False
- lblFileNotSuccessfullySigned.Visible = True
- pbNotSuccessfullySigned.Visible = True
- End If
- End If
- Catch ex As Exception
- MessageBox.Show(ex.ToString)
- End Try
Das Ding ist aber, wenn ich auf den Button geklickt habe, startet er sofort den Methodenaufruf:
setzt aber nicht die beiden Controls vorher auf True:
Die Application verhält sich auch so, dass sie quasi einfriert, solange die Methode "mobjCodeSigner.SignCode" läuft.
SignCode sieht so aus:
VB.NET-Quellcode
- Imports CAPICOM
- Public Class clsCodeSigner
- Public Function SignCode(strFullFilePath As String, strFullCertFilePath As String, strCertPassword As String, strApplicationName As String)
- Try
- Dim objSignCode As New SignedCode
- Dim objSigner As New Signer
- objSigner.Load(strFullCertFilePath, strCertPassword)
- objSigner.Options = CAPICOM_CERTIFICATE_INCLUDE_OPTION.CAPICOM_CERTIFICATE_INCLUDE_END_ENTITY_ONLY
- objSignCode.FileName = strFullFilePath
- objSignCode.Description = strApplicationName
- objSignCode.Sign(objSigner)
- objSignCode.Timestamp("http://timestamp.verisign.com/scripts/timestamp.dll")
- Return True
- Catch ex As Exception
- MessageBox.Show(ex.ToString)
- Return False
- End Try
- End Function
- End Class
Kann das von euch jemand etwas aufklären? Danke euch!