2.3 Update

Author: devITae

EBSOCStatus/EBSOCStatus/Form1.Designer.vb

@@ -5,7 +5,7 @@ Public Class Form1
     Dim nowVersion As String
     Dim sortColumn As Integer = -1
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        nowVersion = "2.02.0" '버전 가운데는 두자리로!
+        nowVersion = "2.03.0" '버전 가운데는 두자리로!
         lrnType.Text = "학습중"
         LType = "LRN"
         CheckUpdate(nowVersion)
@@ -60,6 +60,7 @@ Public Class Form1
             SCodeBox.Focus()
         Else
             '로그인 시도
+            Me.Cursor = Cursors.WaitCursor '로딩 커서
             ' MsgBox("Shost: " & Shost & vbCrLf & "MainH: " & MainH)
             http.Open("POST", "https://" & Shost & ".ebssw.kr/sso")
             http.SetRequestHeader("Referer", "https://" & MainH & ".ebssw.kr/sso/loginView.do?loginType=onlineClass")
@@ -96,6 +97,7 @@ Public Class Form1
                 IDBox.Focus()
             End If
         End If
+        Me.Cursor = Cursors.Default '커서 디폴트로 복귀
     End Sub
     Private Sub Enable_Control(bool As Boolean)
         IDBox.Enabled = bool
@@ -151,11 +153,25 @@ Public Class Form1
         ElseIf lrnType.Text = "학습완료" Then
             LType = "COMPT"
             Call CallNokori()
+        ElseIf lrnType.Text = "미수강중" Then
+            Call CallNotEnrolled()
         Else
             lrnType.Text = "학습중"
             LType = "LRN"
         End If
     End Sub
+    Private Sub StatusList_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles StatusList.MouseDoubleClick
+        Dim i As Integer
+        Dim selectURL As String
+        With Me.StatusList
+            For i = 0 To .Items.Count - 1
+                If .Items(i).Selected = True Then
+                    selectURL = .Items(i).SubItems(3).Text
+                    System.Diagnostics.Process.Start(selectURL) '브라우저로 보기
+                End If
+            Next
+        End With
+    End Sub
     Private Sub CallNokori()
         '진행중인 강의와 진도율 조회
         Dim html, html2, MyUrl, Cutting, Lcount, NowUrl, ClassName, Ltotal, ComCount As String
@@ -166,6 +182,7 @@ Public Class Form1
         UrlList = Split(U1, "|") 'URL을 리스트로 정렬
         StatusList.Items.Clear() '리스트 초기화
         ComCount = 0 '100% 카운트 초기화
+        Me.Cursor = Cursors.WaitCursor '로딩 커서
 
         For i = 1 To UBound(UrlList)
             NowUrl = "https://" & UrlList(i) '클래스 URL
@@ -237,6 +254,7 @@ Public Class Form1
                     StatusList.Items.AddRange(New ListViewItem() {CListDesu})
                     CListDesu.SubItems.Add(Lname(i2)) '진도 이름
                     CListDesu.SubItems.Add(strPer) '진도율
+                    CListDesu.SubItems.Add(NowUrl & "/hmpg/hmpgLctrumView.do?menuSn=" & MyUrl & "&alctcrSn=" & alctcrSn(i2) & "&stepSn=" & stepSn(i2)) '주소
                     Application.DoEvents() '렉 방지
                     Lcount = 0 '카운트 초기화 
                 Next i2
@@ -246,11 +264,55 @@ Public Class Form1
         '로딩완료 이후
         startNokori.Enabled = True '새로고침 버튼 활성화
         lrnType.Enabled = True '콤보박스 활성화
+        Me.Cursor = Cursors.Default '커서 디폴트로 복귀
         If LType = "LRN" And ComCount <> 0 Then
             MsgBox(ComCount & "개의 강의가 학습완료 처리되었습니다." & vbCrLf & "새로고침을 시도합니다!")
             Call CallNokori() '새로고침
         End If
     End Sub
+    Private Sub CallNotEnrolled() '미수강중 목록 불러오기
+        Dim NowUrl, html, ClassName, Cutting, Lname(), Lurl(), urlpage As String
+        startNokori.Enabled = False '새로고침 비활성화
+        lrnType.Enabled = False '콤보박스 비활성화
+        StatusList.Items.Clear() '리스트 초기화
+        Me.Cursor = Cursors.WaitCursor '로딩 커서
+
+        For i = 1 To UBound(UrlList)
+            NowUrl = "https://" & UrlList(i) '클래스 URL
+            http.Open("GET", NowUrl)
+            http.Send()
+            http.WaitForResponse()
+            html = System.Text.Encoding.UTF8.GetString(http.ResponseBody)
+            ClassName = Split(Split(html, "logo txt_grey"">")(1), "</a>")(0) '클래스 이름 추출
+
+            Cutting = Split(html, "learning_list")(1) '리스트 부분 컷
+            Lname = Split(Cutting, "tit bold") '강의 제목 검출용
+            Lurl = Split(Cutting, "<li class=""clearfix"">") '강의주소 검출용
+
+            For i2 = 1 To UBound(Lurl)
+                Lname(i2) = Split(Split(Lname(i2), """>")(1), "</p>")(0).Replace(vbTab, "") '강의 제목
+                Lurl(i2) = Split(Split(Lurl(i2), "<a href=""")(1), """>")(0) '주소 부분만 따오기
+                http.Open("GET", "https://" & Shost & ".ebssw.kr" & Lurl(i2))
+                http.Send()
+                http.WaitForResponse()
+                urlpage = System.Text.Encoding.UTF8.GetString(http.ResponseBody)
+                If InStr(urlpage, "btn_enrol") Then
+                    Dim NotEnrollList As New ListViewItem(ClassName, i2 - 1) '과목 제목
+                    StatusList.Items.AddRange(New ListViewItem() {NotEnrollList})
+                    NotEnrollList.SubItems.Add(Lname(i2)) '진도 이름
+                    NotEnrollList.SubItems.Add("미수강중") '미수강 표시
+                    NotEnrollList.SubItems.Add("https://" & Shost & ".ebssw.kr" & Lurl(i2)) '강의 주소
+                    Application.DoEvents() '렉방지
+                Else
+                End If
+                Application.DoEvents() '렉방지
+            Next i2
+            Application.DoEvents() '렉방지
+        Next i
+        startNokori.Enabled = True '새로고침 버튼 활성화
+        lrnType.Enabled = True '콤보박스 활성화 
+        Me.Cursor = Cursors.Default '커서 디폴트로 복귀
+    End Sub
     Private Sub IDSaveBox_CheckedChanged(sender As Object, e As EventArgs) Handles IDSaveBox.CheckedChanged
         '아이디저장 체크시 상태저장 ㄱㄱ
         My.Settings.IDSave = IDSaveBox.Checked
@@ -337,7 +399,7 @@ Public Class Form1
             End If
         Else
             '지금 버전이 최신보다 클 때
-            MsgBox("개발중인 테스트 버전 입니다.", MsgBoxStyle.Exclamation, "Welcome! Beta Tester.")
+            MsgBox("개발중인 테스트 버전 입니다." & vbCrLf & "최신: " & lastest & " / 현재: " & nowVer, MsgBoxStyle.Exclamation, "Welcome! Beta Tester.")
         End If
     End Sub
 End Class

EBSOCStatus/EBSOCStatus/Form1.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' 지정되도록 할 수 있습니다.
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.2.0.0")>
-<Assembly: AssemblyFileVersion("2.2.0.0")>
+<Assembly: AssemblyVersion("2.3.0.0")>
+<Assembly: AssemblyFileVersion("2.3.0.0")>

EBSOCStatus/EBSOCStatus/My Project/AssemblyInfo.vb

@@ -2,9 +2,9 @@
 EBS 온라인 클래스 진도율을 일괄적으로 조회/계산할 수 있는 프로그램입니다.  
 진도율로 출결관리를 하는 학생들을 위해 제작되었습니다.  
 
-### 최신버전 : v2.2 (Build 200425)
+### 최신버전 : v2.3 (Build 200528)
 
-## [다운로드 (Download)](https://github.com/devITae/EBSOCProgressViewer/releases/download/2.2/EBSOCPro2.2.exe)
+## [다운로드 (Download)](https://github.com/devITae/EBSOCProgressViewer/releases/download/2.3/EBSOCPro2.3.exe)
 ![최초 실행시](./img/first_notice.png)
 #### VB .NET 으로 제작되었으며 윈도우에서만 이용가능 합니다.
 #### EBS 계정으로만 로그인이 가능합니다. (소셜로그인 미지원)
@@ -36,15 +36,15 @@ EBS 서버가 불안정할 때 검색이 되지 않는 경우가 있습니다.
 
 1. 클래스 목록에는 자신이 가입한 클래스**만** 표시됩니다.
 
-2. 학습중/학습완료인 강의들의 목록를 조회할 수 있습니다.
+2. 학습중/학습완료/미수강중인 강의들의 목록를 조회할 수 있습니다.
 
 3. 열(Column) 부분을 클릭하면 오름/내림차순 정렬이 가능합니다.
 
-4. 이 프로그램은 사용자의 개인정보를 탈취하지 않습니다. 소스코드를 참고해주세요. [아래참고](#3-소스코드)
+4. 행(Row) 부분을 더블클릭하면 주소가 기본 브라우저로 열립니다.
 
-5. 보안상 비밀번호 저장 기능은 지원하지 않습니다. (급하게 만드느라..)
+5. 이 프로그램은 사용자의 개인정보를 탈취하지 않습니다. 소스코드를 참고해주세요. [아래참고](#3-소스코드)
 
-6. EBS의 자체 오류로 가끔씩 뒤섞일 때가 있으니 이땐 새로고침 해주세요.
+6. 보안 상 비밀번호 저장 기능은 지원하지 않습니다. (급하게 만드느라..)
 
 ## 1.3 주의사항
 
@@ -78,7 +78,7 @@ EBS 서버가 불안정 할 때 학교코드 검색이 간혹가다 되지 않
 3. 이제 프로그램에서 학교코드를 칸에 기입해주세요! (자동저장 됩니다!)
 
 	![학교코드 칸](./img/schbox.PNG)
-	
+
 4. 이제 로그인 하면 됩니다!
 
 ## 2.2. ~~학습완료 임에도 100%로 표기되지 않는 경우~~

EBSOCStatus/EBSOCStatus/SearchCode.Designer.vb

@@ -1,7 +1,7 @@
-Lastest(v2.02.0)
+Lastest(v2.03.0)
 Developer(ITae)
-UpdateLink(https://github.com/devITae/EBSOCProgressViewer/releases/download/2.2/EBSOCPro2.2.exe)
+UpdateLink(https://github.com/devITae/EBSOCProgressViewer/releases/download/2.3/EBSOCPro2.3.exe)
 
 공지사항/있음
-NotiMent(테스트 vbCrLf 
+NotiMent(테스트 vbCrLf
 줄바꿈)